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ABSTRACT 

A  Two-Step  Approach  for  calculating  slow  and  complex  chemistry  in  inho¬ 
mogeneous  turbulent  reactive  flows,  specifically  in  a  direct  injection 
diesel  engine,  was  developed  and  evaluated.  The  first  step  in  this 
approach  is  to  complete  a  Multi-Dimensional  Model  (MDM)  solution  of  the 
reactive  flow.  This  was  accomplished  for  a  direct-injection  diesel 
using  the  KIVA  computer  code  developed  at  the  Los  Alamos  National  Labor¬ 
atory.  The  output  of  this  solution  is  used  to  define  zones  within  the 
flow,  and  to  calculate  zone  processes  and  mass  flow  between  zones.  A 
Stochastic  Mixing  Model  (SMM)  computer  code  was  developed  to  recalculate 
turbulent  mixing  and  chemistry  using  the  MDM  information.  The  SMM  gen¬ 
erates  distributions  of  turbulent  properties  within  each  zone  which  are 
necessary  to  calculate  slow  emissions  chemistry.  The  submodels  included 
in  the  SMM  are  not  intended  to  be  unique,  but  only  to  represent  one 
example  of  how  this  approach  might  be  applied.  <;  . 

This  approach  was  evaluated  for  consistency  by  analyzing  zone  property 
distributions,  the  effect  of  changing  zone  boundaries,  the  effect  of  in¬ 
creasing  the  number  of  zones  and  the  variance  of  SMM  results  over  multi¬ 
ple  stochastic  runs.  The  standard  deviation  of  pressure,  soot  and  Ni¬ 
tric  Oxide  (NO)  decreased  and  meann  values  and  distributions  approached 
asymptotic  limits  with  more  elements  and  more  zones.  These  results  are 
consistent  with  the  structure  of  the  stochastic  model.  The  approach  was 
evaluated  for  accuracy  by  comparison  to  experimental  results  with  dif¬ 
ferent  engine  operating  conditions.  The  NO  calculations  were  not  cali¬ 
brated  in  any  way  to  the  experimental  results  and  provided  the  best 
indicator  for  honestly  evaluating  the  model's  ability  to  predict  slow 
chemistry.  NO  predictions  and  trends  showed  good  agreement  with  the 
experimental  data. 

The  Two-Step  Approach  shows  great  promise  for  calculating  slow  and  com¬ 
plex  chemistry  in  turbulent  reactive  flows.  Limitations  in  our  applica¬ 
tion  were  due  primarily  to  deficiencies  in  the  MDM  solution  and  to  ex¬ 
ternally-imposed  economies  on  KIVA  computer  time. 

Thesis  Supervisor:  Prof.  John  B.  Heywood 

Title:  Director,  Sloan  Automotive  Laboratory 
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CHAPTER  ONE 

INTRODUCTION 

1  . 1  Overview 

Effective  emissions  control  requires  the  simultaneous  reduction  of 
more  than  one  pollutant.  A  trade-off  exists  in  diesel  engines  between 
the  reduction  of  soot  and  the  reduction  of  Nitrogen  Oxides  (NOx-mostly 
Nitric  Oxide  with  some  Nitrogen  Dioxide).  N0x  is  a  product  of  hot  lean 
combustion  and  soot  is  a  product  of  cooler  rich  combustion.  Reducing 
one  normally  results  in  increasing  the  other,  but  their  mechanisms  are 
complex  and  influenced  by  many  variables.  Ultimately  they  depend  on 
local  composition  and  temperature  which  are  controlled  by  engine  varia¬ 
bles  such  as  compression  ratio,  intake  air  temperature  and  pressure, 
exhaust  gas  recirculation  (EGR),  cylinder  geometry,  engine  speed,  load, 
swirl,  injection  timing,  fuel  jet  characteristics,  and  type  of  fuel. 
These  mechanisms  are  very  difficult  to  study  empirically.  A  mathemati¬ 
cal  model  of  the  diesel  combustion  process  would  allow  its  parameters  to 
be  varied  independently  to  examine  their  effects  on  NO^  and  soot.  Past 
models  have  not  given  satisfactory  results  or  have  been  limited  to  a 
narrow  range  of  applications.  Few  have  even  considered  the  problem  of 
calculating  slow  emissions  chemistry  simultaneously  with  flow  details  in 
a  turbulent  reactive  flow.  Such  calculations  must  consider  turbulent 
distributions  of  temperature  and  species  concentration,  but  this  is  a 
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formidable  task  in  an  already  cumbersome  unsteady,  three-dimensional 
flow  calculation.  This  research  evaluates  the  feasibility  of  using  a 
two-step  modeling  approach.  A  multi-dimensional  model  (MDM)  solution  to 
the  reactive  flow  conservation  equations  is  used  to  define  zones  within 
the  engine  cylinder,  to  specify  the  flow  between  these  zones  and  to 
calculate  evaporation,  heat  transfer  and  mixing  intensity  within  the 
zones.  A  stochastic  mixing  model  (SMM)  uses  this  information  to  predict 
emissions. 

1 .2  Background 

A  description  of  direct-injection  diesel  combustion  provides  neces¬ 
sary  insight  into  the  complexity  of  this  problem.  Direct  injection  of 
fuel  into  the  engine  cylinder  is  used  in  medium  and  low  speed  diesel 
applications.  Low  speed  diesels  have  flat  or  slightly  concave  pistons 
and  relatively  little  initial  air  motion  (quiescent).  Medium  speed 
diesels,  which  will  be  considered  here,  have  deeper  bowls  inset  into  the 
piston.  They  depend  on  generating  significant  air  flow  and  turbulence 
to  achieve  rapid  and  complete  combustion. 

Figure  1-1  shows  the  basic  events  in  a  four-stroke  diesel  combus¬ 
tion  process.  Figure  1-2  illustrates  a  medium  speed  diesel  cylinder  and 
fuel  spray  geometry.  During  intake,  air  is  drawn  through  the  intake 
valve  by  the  descending  piston.  Bulk  motion  of  the  intake  charge  is 
controlled  by  the  shape  of  the  intake  passage.  Typical  of  most  medium 
speed  diesels  is  a  significant  swirl  motion  as  indicated  in  Figure  1-2. 
The  intake  valve  closes  shortly  after  bottom  dead  center  (BDC).  High 
temperature  and  pressure  are  generated  as  the  piston  compresses  the  air 
and  residual  gases.  Before  reaching  top  dead  center  (TDC)  liquid  fuel 


is  injected  into  the  cylinder.  The  fuel  spray  is  atomized  upon  leaving 
the  injector  and  immediately  begins  evaporating.  As  the  fuel  spray 
entrains  and  mixes  with  the  hot  gases  a  spray  structure  develops.  This 
is  characterized  by  a  rich  liquid  core  at  the  center  of  the  spray  sur¬ 
rounded  by  a  progressi vely  leaner  distribution  of  fuel  and  air.  Igni¬ 
tion  occurs  after  a  chemical  ignition  delay  period.  The  combustion 
region  spreads  rapidly,  often  from  multiple  sites,  until  the  fuel  alrea¬ 
dy  mixed  within  combustible  limits  is  burned.  Following  this  premixed 
burning  phase  combustion  becomes  mixing  controlled  and  proceeds  more 
slowly.  A  typical  heat  release  rate  curve  for  this  process  is  shown  in 
Figure  1-3.  As  the  piston  passes  TDC ,  the  hot,  high  pressure  gases 
drive  the  piston  down,  delivering  useful  work.  Near  TDC  injection 
stops.  Turbulent  mixing  and  combustion  continues  until  essentially  all 
the  fuel  is  burned.  Since  diesel  combustion  is  overall  very  lean,  most 
of  the  fuel's  chemical  energy  is  released.  NO^  is  produced  in  the  hot, 
stoichiometric  combustion  regions.  Soot  is  produced  in  the  richer  spray 
regions  bordering  the  combustion  zone.  The  quantity  of  soot  reaches  a 
maximum  towards  the  end  of  injection,  then  decreases  due  to  oxidation. 
Among  the  phenomena  observed  in  the  diesel  combustion  process  are  turbu¬ 
lent  two-phase  flow,  moving  boundaries,  evaporation,  turbulent  mixing, 
ignition,  combustion,  slower  emissions  chemistry,  convective  heat  trans¬ 
fer  and  radiation. 

Despite  its  complexity,  diesel  combustion  is  still  governed  by  the 
general  equations  for  turbulent  reactive  flows,  including  conservation 
of  mass,  species,  momentum  and  energy.  Space  and  time  resolution  of 
this  flow  far  exceeds  present  computer  capabilities.  The  task  is  made 
manageable  in  state-of-the-art  multi-dimensional  models  (MDM's)  by  con- 
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si  dering  only  mean  local  properties  with  additional  assumptions  or 
equations  to  replace  turbulent  fluctuation  terms.  Chemical  reaction 
rates  are  also  expressed  in  terms  of  mean  lr  cal  properties.  These  gen¬ 
eral  equations  with  boundary  conditions  and  various  submodels  are  then 
solved  in  time  and  space. 

Because  the  reaction  rates  governing  the  production  of  soot  and  N0x 
are  much  slower  than  those  for  combustion  and  have  time  scales  of  the 
same  order  as  the  turbulent  fluctuations,  the  MDM  cannot  accurately 
predict  emissions.  The  distribution  of  turbulent  properties  must  be 
considered.  In  order  to  model  more  complex  chemistry  and  consider  the 
distribution  of  turbulent  properties,  compromises  must  be  made  in  deal¬ 
ing  with  flow  details.  Otherwise,  the  solution  becomes  computationally 
unmanageable.  Stochastic  mixing  models  have  gained  broad  acceptance  for 

9 

modeling  turbulent  mixing  and  combustion  in  various  types  of  chemical 
reactors.  The  fundamental  concept  of  these  models  is  coalescence/dis¬ 
persion  micromixing.  Cl]  Details  of  this  method  are  provided  in  Appen¬ 
dix  C.  In  its  simplest  form,  initially-segregated  equal-mass  elements 
(reactants)  are  fed  into  a  reactor.  Randomly  selected  pairs  of  elements 
within  the  reactor  are  instantaneously  mixed  on  a  molecular  level  (coa¬ 
lesced)  according  to  a  prescribed  mixing  rate  and  then  separated  again 
into  two  elements  of  equal  average  intensive  properties  (dispersed). 
Finite  rate  batch  chemistry  proceeds  in  each  element  during  the  time 


e 


interval  between  mixings.  Elements  within  the  reactor  acquire  a  dis¬ 
tribution  of  propert.es  wr.i  :.n  control  the  overall  reaction  rates.  There 
is  no  spatial  -esol j*  . .t  within  the  reactor.  Each  element  is  equally 
likely  to  be  picxed  f ,r  mixing  or,  in  cases  with  a  discharge,  for  remov¬ 
al  from  the  reactor.  This  method  has  been  applied  to  a  divided  chamber 
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diesel  [2]  in  a  previous  study  at  MIT.  In  this  type  of  engine  the  fuel 
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is  injected  into  a  highly-mixed  prechamber  for  combustion  and  expansion 
into  the  engine  cylinder.  Unfortunately,  direct  injection  diesel  com¬ 
bustion  cannot  be  described  as  well-mixed.  The  spatial  distribution  of 
the  fuel  spray  and  the  cylinder  geometry  play  import-ant  roles  in  this 
process.  Ikegami  and  Shioji  [53]  use  a  stochastic  single-zone  method  to 
calculate  chemistry  in  a  direct  injection  diesel,  but  their  analysis 
assumes  an  initial  distribution  function  for  the  fuel  spray  and  requires 
a  number  of  empirical  parameters. 

1 .3  The  Two-Step  Approach 

The  purpose  of  a  two-step  approach  to  this  problem  is  to  provide  a 
fundamentally-based  method  by  which  stochastic  mixing  model  techniques 
may  be  applied  to  an  inhomogeneous  reserve  flow  such  as  a  direct-injec¬ 
tion  diesel  engine  in  which  flow  details  are  likely  to  be  critical  to 
the  calculation.  The  first  step  in  this  approach  is  to  complete  a  MDM 
solution  of  the  engine  reactive  flow.  The  output  of  this  solution  is 
used  to  define  zones  within  the  engine  cylinder  according  to  total  fuel 
mass  fraction  (burned  plus  unburned  fuel).  Four  such  zones  are  labeled 
in  Figure  1-2.  These  zones  are  not  fixed  in  space,  but  are  dependent  on 
the  constantly  changing  distribution  of  total  fuel  within  the  cylinder. 
Total  mass,  species  mass,  volume,  chemical  heat  release,  mass  of  fuel 
burned,  mass  of  fuel  evaporated,  wall  heat  transfer  and  turbulent  inten¬ 
sity  are  calculated  for  each  zone  at  each  timestep.  Using  conservation 
of  mass  and  species,  the  net  flow  of  total  mass,  liquid  fuel,  unburned 
fuel  vapor,  and  burned  fuel  between  each  zone  is  calculated. 

The  second  step  is  to  model  each  of  these  zones  as  a  stochastic 
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mixing  zone  in  a  Stochastic  Mixing  Model  (SMM).  The  flow  and  process 
information  calculated  by  the  MDM  are  used  to  specify  flows  between 
mixing  zones  and  constrain  evaporation,  heat  transfer,  and  mixing  within 
the  zones.  Information  is  transferred  only  from  the  MDM  to  the  SMM. 
Using  this  information  the  flow  mixing  and  chemistry-  is  recalculated  by 
the  SMM,  resulting  in  species  and  temperature  distributions  for  each 
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zone  as  a  function  of  time.  In  this  way  the  distribution  of  turbulent 
properties  is  considered  in  the  calculation  of  slow  chemistry.  Figure 
1-4  illustrates  the  flow  of  information  between  the  MDM  and  the  SMM. 
Tables  2-1  and  2-2  define  the  variables  used. 

1 .4  Goals  and  Objectives 

The  goal  of  this  thesis  is  to  demonstrate  the  feasibility  of  this 
two-step  approach  for  calculating  slow  and  complex  chemistry  in  turbu¬ 
lent  reactive  flows.  The  specific  objectives  are: 

1 .  To  develop  a  Stochastic  Mixing  Model  computer  code 
based  on  this  two-step  approach  for  calculating  emissions  in 
a  direct-injection  diesel  engine. 

2.  To  evaluate  the  SMM  for  consistency  by  analyzing  zone 
distributions,  the  effect  of  changing  zone  boundaries,  the 
effect  of  increasing  the  number  of  zones,  the  sensitivity  to 
various  physical  and  model  parameters  and  the  variance  of 
final  results  over  multiple  stochastic  runs. 

3.  To  evaluate  the  SMM  by  comparison  to  MDM  results 
which  are  recalculated,  but  unconstrained  in  the  SMM  such  as: 
pressure,  zone  burned  fuel,  zone  fuel  mass  fraction  and  spe¬ 
cies  flow. 

4.  To  evaluate  the  SMM  by  comparing  predicted  NO  histo¬ 
ries  to  experimental  results  with  primary  emphasis  given  to 
trends  as  engine  conditions  are  changed. 


The  submodels  included  in  our  Stochastic  Mixing  Model  are  not  intended 
to  be  unique.  Each  was  developed  with  great  care  to  be  consistent  with 
the  random  selection  principles  fundamental  to  the  method  and  the  physi 
cal  processes  being  modeled,  but  equally  valid  arguments  could  be  made 
for  other  schemes.  Our  intent  is  to  illustrate  and  evaluate  one  exampl 
of  how  this  approach  might  be  applied. 


CHAPTER  TWO 


THE  MULTI-DIMENSIONAL  MODEL 


2 . 1  Selecting  a  Multi-dimensional  Model 

Engine  combustion  modeling  has  received  much  attention  in  recent 
years.  Models  have  been  developed,  reviewed,  classified  and  discussed 
at  all  levels  of  the  academic  and  professional  communities.  Heywood  [4] 
provides  the  most  widely  accepted  classification  scheme  for  these  mo¬ 
dels.  These  classifications  include  zero-dimensional,  quasi-dimensional 
and  multi-dimensional  models.  Zero- dimensional  models  do  not  consider 
spatial  variations  within  the  cylinder  and  are  essentially  a  thermody¬ 
namic  analysis.  Heat  transfer  is  modeled,  as  bulk  heat  loss  and  the  mass 
burning  rate  is  specified  by  an  empirical  function.  Quasi-dimensional 
models  go  a  step  further  and  attempt  to  predict  the  burning  and  mixing 
rates  from  more  fundamental  physical  variables  that  describe  the  spatial 
structure  in  a  parametric  manner.  Typically,  phenomenalogical  models 
are  used  for  the  fuel  spray  behavior,  ignition  and  mixing. [5]  For  our 
application,  spacial  details  of  the  flow  are  required  to  define  zones 
and  specify  the  flow  between  zones.  Therefore,  zero  or  quasi-dimensional 
models  are  not  adequate.  The  necessary  spatial  details  are  provided 
only  by  multi-dimensional  models. 

Multi-dimensional  models  solve  the  fundamental  mass,  species,  mo¬ 
mentum  and  energy  conservation  equations  in  time  and  space.  This  re- 


quires  mathematical  descriptions  or  submodels  for  the  fuel  spray,  igni¬ 
tion,  combustion  chemistry,  heat  transfer,  and  moving  boundary  surfaces. 
It  requires  a  sophisticated  numerical  solution  algorithm  and  a  method 
for  dealing  with  turbulent  flow  and  combustion.  This  is  a  formidable 
task  and  computational  fluid  dynamics  (CFD)  with  combustion  is  really 
only  in  its  infancy.  Our  problem  was  to  select  a  multi-dimensional 
model  from  existing  computer  codes,  modify  it  to  provide  the  particular 
data  required  for  input  to  the  Stochastic  Mixing  Model (SMM ) ,  and  to  run 
the  code  without  major  changes  to  its  existing  submodels.  Codes  with 
this  level  of  sophistication  cannot  be  used  as  a  "black  box".  Running 
the  code  was  challenging  and  educational.  Among  existing  multi-dimen¬ 
sional  models  for  internal  combustion  engine  simulation,  three  stand  out 
as  being  reasonably  well-documented  and  as  having  solution  algorithms 
and  submodels  which  are  "state-of-the-art"  in  their  approach.  These 
are: 

1 .  PICALO  (Piston-in-Cylinder  Calculator)  developed  by 
CHAM  of  North  Amer ica/Cumrains  Engine  Co. 

2.  RPM  (Reciprocating  Piston  Motion)  developed  at  Imper¬ 
ial  College,  London  by  A.D.  Gosman  et  al . 

3.  KIVA  developed  at  Los  Alamos  National  Laboratory  by 
A.A.Amsden  et  al. 

PICALO  [6],  working  in  conjunction  with  PHOENICS,  a  general-purpose 
flow  analysis  computer  code,  treats  the  two-phase  flow  as  interpenetra¬ 
ting  media  using  a  continuum  approach  with  coupling  terms  for  mass, 
momentum  and  energy  exchange  between  media.  The  conservative  finite- 
difference  numerical  algorithm  is  fully  implicit  and  iterative.  A  k-e 
model  is  used  to  model  turbulence.  Boundaries  are  treated  as 
adiabatic  and  "no-slip".  Instantaneous  mixing-controlled  chemical  reac- 


tion  is  assumed. 


The  development  and  application  of  RPM  has  been  well-documented  for 
over  a  decade. [7 ,8 , 9 , 1 0 , 1 1 , 1 2]  Most  of  the  documented  RPM  versions  use 
a  curvilinear-orthogonal  grid  able  to  expand  and  contract  in  the  axial 
direction.  The  conservative  finite-difference  numer.ical  scheme  is 
fully  implicit  and  iterative.  The  most  recent  version  uses  a  predictor/ 
corrector  algorithm  in  place  of  the  iterative  technique.  All  versions 
use  a  combination  of  upwind  and  central  differencing  for  the  discrete 
convection  and  diffusion  terms.  A  k-e  model  is  used  to  model  turbu¬ 
lence.  Boundaries  are  treated  using  a  "law- of- the- wall"  technique. 

Most  of  RPM's  published  applications  have  been  for  cold  flow,  but  in  the 
cases  where  combustion  was  included  [8,9]  a  combination  of  an  Arrhenius 
rate  equation  for  the  chemically  controlled  phase  and  an  eddy  mixing- 
model  for  the  mixing  controlled  phase  were  used.  A  stochastic  discrete- 
particle  model  is  used  to  model  the  liquid  spray.  Although  the  RPM 
model  was  not  selected  for  our  use,  the  results  presented  in  references 
[8]  and  [9]  provide  some  interesting  comparisons. 

KIVA  was  selected  for  our  application.  A  description  of  KIVA  will 
be  presented  in  the  next  section.  The  primary  reasons  for  selecting 
KIVA  were  availability,  excellent  documentation,  its  ability  to  calcu¬ 
late  multi-component  chemistry,  its  extensive  use  of  vector  calculations 
and  its  computational  efficiency  at  low  Mach  number. 

2.2  Description  of  KIVA 

KIVA  is  a  finite-difference  computer  code  for  solving  reactive 
fluid-flow  problems  in  two  or  three  dimensions.  It  is  specifically 
designed  to  model  the  in-cylinder  fluid  dynamics  of  internal  combustion 


engines  including  gas  flow,  liquid  fuel  injection,  spray  dynamics,  evap¬ 


oration,  heat  transfer,  combustion,  species  transport,  and  mixing.  KIVA 
uses  an  arbitrary-Lagrangian-Eulerian  (ALE)  mesh  which  facilitates  cal¬ 
culations  with  curved  and  changing  boundaries.  The  species  and  chemical 
reactions  that  can  be  represented  in  KIVA  are  not  limited.  The  documen¬ 
tation  for  KIVA  [13,14]  is  excellent  and  contains  an  extensive  list  of 
references  and  more  detail  than  will  be  presented  here. 

2.2.1  KIVA  Nomenclature 
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Scaling  constant  of  order  .05 

stoichiometric  coefficients  for  species 
m  in  reaction  r;  a  for  reactants,  b  for 
products 

order  of  reaction  for  species  m  in 
reaction  r 

species  diffusivity  (same  all  species) 

3  3  3 

vector  operator 

Kronecker  delta 

drop  distribution  function 

rate  of  change  in  f  due  to  drop  collisions 

drop  acceleration 

momentum  transfered  from  spray  droplets 

specific  enthalpy  of  species  m  (datum  at 
absolute  zero) 
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fr ,kbr 


specific  internal  energy  (datum  at  absolute 
zero) 


heat  flux  vector 

forward  and  backward  rate  coefficients 
for  reaction  r 


thermal  conductivity 


Equilibrium  constant  for  reaction  s 


air  viscosity 


turbulent  viscosity 


background  kinematic  viscosity 


pressure 


Prandtl  number 


subgrid-scale  specific  turbulent  kinetic-energy 

,  2.  2, 

(cm  /sec  ) 


rate  of  chemical  heat  release 


spray  energy  source  rate 


heat  of  reaction  r 


turbulent  disipation  source  rate 


rate  of  change  in  drop  radius 


total  mass  density  (g/cc) 


fuel(ex:  diesel)  density 


species  m  mass  density  (g/cc) 


change  in  p  due  to  chemical  reaction 
m 


change  in  fuel  density  (p  )  due  to  evaporation 


Schmidt  number 


viscous  stress  tensor 


time  (s) 


absolute  temperature  (K) 


rate  of  change  in  drop  temperature 


fluid  velocity  (cm/s)  u  -  ui  +  vj  ♦  wk 


rate  of  change  in  drop  gas  turbulence  velocity 


kinetic  progress  rate  for  reaction  r 


molecular  weight  of  species  m 


mole  of  species  m 


2.2.2  The  Basic  Equations 

The  conservation  equations  for  mass,  species,  momentum  and  energy 
as  expressed  in  KIVA  are: 
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(2.5) 


State  relations  are  for  an  ideal  gas  mixture.  Chemical  reactions  are 
represented  by: 
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The  chemical  source  term  in  the  species  continuity  equation  is  then 
given  by: 
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and  the  chemical  heat  release  in  the  energy  equation  by: 
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Fast  reactions  are  assumed  to  be  in  equilibrium.  Slower  reactions  are 
advanced  kinetically.  Kinetic  reaction  rates  are  computed  using: 
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where: 
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(2.11) 


Equilibrium  reaction  rates  are  implicitly  determined  from  the  equilibri¬ 
um  constraints: 
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Complete  space  and  time  resolution  of  a  turbulent  flow  far  exceeds 
present  computer  capabilities.  KIVA  assumes  a  Reynold's  decomposition 
with  mass  or  Favre  averaging  and  applies  the  same  conservation  equations 
(2.1  thru  2.5)  in  terms  of  local  mean  properties  to  the  turbulent  flow. 
Reynold's  decomposition  expresses  dependent  variables  as  the  sum  of  mean 
and  fluctuating  components.  For  an  unsteady  cyclic  process  this  mean 
represents  an  ensemble  mean  or  average  over  many  cycles  at  a  particular 
time  in  the  cycle.  Ensemble  averaging  of  the  decomposed  conservation 
equations  results  in  similar  equations  using  local  mean  properties,  but 
with  additional  terms  containing  products  of  the  fluctuating  components. 
There  are  more  unknowns  than  equations.  This  is  the  turbulent  closure 
problem.  The  most  common  closure  scheme  is  to  model  these  additional 
terms  as  a  turbulent  gradient  flux  and  to  replace  the  molecular  trans¬ 
port  coefficients  with  turbulent  ones.  The  turbulent  coefficients  are 
then  calculated  using  additional  algebraic  or  partial  differential  equa¬ 
tions  to  describe  the  turbulence.  KIVA  follows  this  scheme  and  calcu¬ 
lates  turbulent  viscosity  using  a  subgrid-scale  turbulence  model  (SGS) 
with  a  single  partial  differential  equation  for  subgrid  turbulent  kine¬ 
tic  energy: 
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KIVA  also  replaces  temperature  and  concentrations  in  the  chemical  equa¬ 
tions  with  local  mean  values  assuming  that  the  chemical  reactions  are 
fast  enough  not  to  be  effected  by  turbulent  fluctuations.  This  is  not 
valid  for  the  slower  emissions  chemistry.  The  rational  for  including 
the  effects  of  turbulent  fluctuations  on  slower  chemistry  is  developed 
in  Appendix  C. 

The  fuel  spray  is  modeled  using  a  Mon£e  Carlo  discrete-particle 
technique.  Discrete  computational  particles  represent  groups  of  drop¬ 
lets  of  similar  physical  properties.  A  drop  distribution  function,  f, 
is  used  to  specify  these  properties  including  location,  velocity,  radii, 
temperature  and  gas  turbulence  velocity,  ^he  gas  turbulence  velocity  is 
added  to  the  local  mean  gas  velocity  when  calculating  drag  and  vaporiza¬ 
tion  rate.  Drops  may  collide  resulting  in  either  coalescence  or  an 
exchange  of  momentum.  The  time  evolution  of  f  is  given  by  the  spray 
equation: 


3f  3  3 

-  ♦  V-(fv)  ♦  Vy.(fF)  ♦  ^(fR)  ♦  ^(fTd)  ♦  Vut.(fu’) 
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(2.15) 


The  droplet  acceleration,  F,  is  calculated  from  gas  flow  velocities 
using  a  drag  coefficient.  The  rate  of  droplet  radius  change  is  calcula¬ 
ted  using  the  Frossling  correlation.  Heat  conduction  to  the  droplet  is 
given  by  the  Ranz-Marshall  correlation.  This  set  of  coupled  equations 
is  solved  to  generate  a  time-dependent,  spacially-resol ved  description 


of  the  particle  motion.  Exchange  functions  for  mass,  momentum  and  ener- 
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gy  are  calculated  from  this  description  of  the  spray  and  included  as 
source  terms  in  the  gas  flow  conservation  equations. 

2.2.3  Numerical  Solution 

The  basic  equations  are  reformulated  in  integral  form  so  that 
schemes  explicitly  conserving  mass,  species,  momentum  and  energy  may  be 
implemented.  The  temporal  difference  scheme  is  explicit  using  an  acous¬ 
tic  subcycling  method  at  low  Mach  numbers.  Spacial  differencing  is  on 
an  arbitrary  Lagrangian  /Eulerian  grid  (ALE).  Spatial  difference  ap¬ 
proximations  use  a  control  volume  approach  to  conserve  local  properties. 

Quantities  are  advanced  one  cycle,  from  time  tn  to  time  tn+1 ,  in 
three  phases.  Phase  A  considers  terms  in  the  basic  equations  other  than 
pressure  and  convection.  °hase  B  is  a  Lagrangian  sub-cycling  calcula¬ 
tion  considering  acoustic  terms  (pressure.work.spray  particle  drag)  in 
which  the  vertices  of  the  volume  elements  are  assumed  to  move  with  the 
local  fluid  velocity.  Phase  C  is  the  rezone  phhase,  in  which  convective 
transport  associated  with  moving  the  vertices  from  their  Phase  B  loca¬ 
tions  to  their  final  locations  is  calculated.  Timesteps  are  adjusted 
each  cycle  based  on  minimum  stability  requirements. 

The  general  structure  of  the  code  is  o.iown  in  Figure  2-1 .  The  code 
was  'written  specifically  for  the  CRI  Cray-1  computer. 
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2 . 3  Modifications  to  XIVA 

Six  types  of  modifications  were  made  to  the 

XIVA  C 1 3 ]  fo-  our  application: 

1.  Modifications  for  compatibility  with 
System  at  the  Navy  Research  Lab,  Washington, 


documented  version  of 


the  VAX/CRAY 
where  most  of 


■\V. 


the  KIVA  runs  were  made. 

2.  Modifications  for  calculating  data  for  input  to  the 
Stochastic  Mixing  Model (SMM). 

3.  Modifications  for  using  the  MIT  "standard"  diesel 

fuel . 

4.  Modifications  to  increase  diffusivity  and  the  rate  of 
combustion  on  the  expansion  stroke. 

5.  Other  minor  modifications  adapting  the  code  to  this 
application. 

6.  Los  Alamos  National  Lab(LANL)  KIVA  update  092085/ 

1435.  [15] 

The  update  decks  for  these  changes  are  listed  in  Appendix  E. 

Subroutine  MDMOUT  calculates  zone  properties  for  output  to  the  SMM. 
KIVA  computational  cells  are  sorted  by  total  fuel  mass  fraction  (TFMF ) 
into  ten  zones.  Properties  for  each  o'1  these  zones  are  calculated  and 
written  to  an  output  file  for  subsequent  post-processing  and  input  to 
the  SMM.  These  properties  are  listed  in  Table  2-1  and  their  relation¬ 
ship  to  the  SMM  illustrated  in  Figure  1-4'. 

The  documented  version  of  KIVA  includes  data  for  octane  combustion. 
Specifying  a  different  fuel  in  the  input  data  requires  changes  to  data 
statements  in  Subroutine  RINPUT.  This  data  includes  fuel  enthalpy, 
latent  heat,  and  vapor  pressure.  The  fuel  used  in  our  calculations  is  a 
multicomponent  "standard"  diesel  fuel,  g^g  y  Coefficients  used 
fur  calculating  fuel  enthalpy  are  from  Reference  [16].  Latent  heat  and 
vapor  pressure  values  used  are  for  dodecane  [17]. 

The  requirement  to  increase  diffusivity  on  the  expansion  stroke 
will  be  discussed  in  Section  2.5.  This  was  accomplished  by  gradually 
increasing  variables  ATKE,  RPR  and  RSC  after  top  dead  center. 

Originally,  the  law-of-the-wali  heat  transfer  model  predicted  only 


7-8  per  cent  of  the  total  heat  release  as  heat  loss  to  the  wall.  This 
was  substantially  lower  than  the  12-15  per  cent  expected.  In  order  to 
compensate  for  this  discrepancy  the  constant  in  the  following  heat 
flux  equation  was  increased  from  1.125  to  2.0: 

J  -  C  ( t/U ) c  (T  -  T  )  (2.16) 

w  w  p  w 

A  similar  change  was  reported  in  constant  volume  bomb  simulations  using 
KIVA  at  Purdue  University  [18]. 

Ignition  crank  angle  is  specified  as  an  input  to  the  calculation. 
The  code  was  modified  to  delay  all  chemistry  until  ignition  at  which 
point  chemical  reaction  proceeded  spontaneously.  Spark  ignition  was  not 
required. 

A  spray  model  update  developed  at  LANL,  but  not  included  in  the 
documented  update,  was  used.  In  this  update  the  spray  turbulent  kinetic 
energy  is  calculated  independent  of  the  flow  turbulent  kinetic  energy 
and  the  particle  diffusion  algorithm  is  modified  for  spray  turbulent 
correlation  times  smaller  than  the  computational  time  step.  These 
changes  were  required  to  achieve  reasonable  spray  penetration  without 
artificially  changing  the  values  of  the  input  spray  parameters. 

2 . 4  Selecting  Model  Parameters  and  Running  KIVA 

Complete  KIVA  input  for  the  five  test  cases  is  listed  in  Appendix 
A.  The  following  parameters  required  particular  consideration  for  thi3 
application: 

NX  Number  of  radial  cells.  22  for  all  runs. 

NY  Number  of  azimuthal  cells.  Set  to  1  for  this  axisymmetric 

calculation.  Although  KIVA  is  capable  of  3-D  calculations,  an 
axisymmetric  geometry  was  chosen  to  conserve  computer  time. 
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NZ  Number  of  axial  cells.  18  for  all  runs.  Grid  points 

along  the  piston  bowl  were  laid  out  on  graph  paper.  Eleven 
planes  were  chosen  for  the  squish  region  at  the  start  of  the 
run  (-90°  ATDC).  Approximately  400  total  cells  were  desired. 
Actual  indices  for  the  piston  bowl  are  input  variables  KPO, 

RPO  and  ZPO .  Figure  2-2  shows  the  resulting  grid  layout  at 
-90°  ATDC  and  TDC . 

LWALL  +1  selects  law-of-the-wall  boundary  conditions  which  were  used 
for  all  calculations. 

NCHOP  KIVA  uses  a  CHOP  routine  to  reduce  the  number  of  planes  in 
the  squish  region  as  the  piston  approaches  TDC.  A  minimum 
thickness  of  3  cells  in  the  squish  region  was  chosen  for  all 
calculations.  NCH0P-3.  See  Figure  2-2. 

STROKE,  Values  for  engine  parameters  were  taken  directly  from 

SQUISH,  .the  engine  test  data.  [19] 

RPM, 

CONROD, 

SWIRL, 

CA1INJ, 

CA2INJ , 

TSPMAS 

CONE,  A  hollow  cone  spray  pattern  must  be  used  with  an  axisym- 

DCONE  metric  geometry  to  simulate  the  actual  8-hole  spray  pattern 

With  moderate  swirl  and  8  holes  this  is  a  reasonable  approx¬ 
imation.  The  injection  angle  used  was  from  the  engine  test 
data.  A  spray  included  angle  of  15  degrees  was  used  for  all 
runs . 
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Initial  charge  temperature  and  composition  were  specified 
at  -90°  ATDC  using  the  data  supplied  in  the  test  results  and 
the  NASA  equilibrium  code  to  calculate  burned  composition. 

The  initial  charge  includes  air,  water  vapor,  residual  frac¬ 
tion,  and  EGR. 

These  parameters  were  set  to  0  and  1  respectively.  This 
results  in  a  weighted  average  between  centered  and  upwind  dif¬ 
ferencing  for  evaluating  cell-faced  quantities.  The  weighting 
factor  is  calculated  each  timestep  for  marginal  stability. 

This  is  KIVA's  least  numerically  diffusive  differencing 
scheme. 

UVFREE  Set  to  1.0  for  all  runs.  Allows  the  velocities  along 

flat  vertical  and  horizontal  walls  to  "float".  Momentum  loss 
for  vertices  one  cell  away  from  the  wall  is  calculated  using 
the  law- of -the- wall.  Velocities  along  walls  where  UVFREE-1.0 
are  then  calculated  as  if  the  wall  were  not  there.  No-slip 
boundaries  were  found  to  be  over-restrictive  on  the  flow. 

This  remains  a  problem  on  curved  surfaces. 

ADIA,  A  constant  wall  temperature  (ADIA-0. ,TWALL»H00 . )  was  used 

TWALL  for  all  run3. 

CA1IGN  Crank  angle  at  ignition  was  specified  as  input.  Its 

value  was  determined  from  the  experimental  pressure  trace 
Chemistry  is  not  allowed  to  occur  until  ignition. 

TKEI ,  Various  values  for  the  turbulent  parameters  were  tried 

DTKE ,  in  the  preliminary  runs.  Those  specified  in  the  KIVA  docu- 

ATKE  mentation  were  found  to  work  well. 

RPR  ,RSC  Prandtl  and  Schmidt  numbers  of  approximately  0.9  were 

used  for  all  calculations.  This  differs  from  the  value  of 
1/3  used  in  the  documented  KIVA  test  case. 


TEMPI 

RH01-12 


AO,  BO 


I 


Reference  [20]  provides  an  excellent  overview  of  model¬ 


ing  and  measuring  engine  fuel  sprays.  A  review  of  the  engine 

spray  literature  indicates  a  broad  range  of  predicted  and 

measured  Sauter  Mean  Radius.  9.5  um  represents  a  typical 

initial  SMR  for  Ap.  .,-21  MPa.  This  value  was  used  for  all 

inj 

KIVA  runs. 


VELINJ  An  initial  injector  velocity  of  1 66  m/s  was  calculated 

for  Apinj-21  MPa  and  Cp-0.76.  This  value  was  used  for  all 
KIVA  runs. 


MW1 ,  Input  chemical  reaction  properties  were  modified  for 

HTF1 ,  burning  diesel  fuel  vice  octane. 

CF1 , AMI , 


Run  times  for  an  axisymmetric  simulation  from  -90°  to  80°  ATDC  were 
approximately  18  minutes  on  a  CRAY  X-MP/12  computer.  Contour  plots  of 
the  KIVA  results  were  obtained  by  post-processing  KIVA  output  data  using 
Program  KIVAPP. 


2.5  KIVA  Results 

In  addition  to  the  KIVA  output  to  be  processed  and  used  by  the  SMM, 
contour  and  global  property  plots  were  generated  in  order  to  examine  the 
multi-dimensional  results  more  directly.  This  section  will  discuss  the 
plots  for  Run  17  which  is  the  basic  retarded  injection  test  case  with  an 
Injection  crank  angle  of  -15°,  swirl  ratio  of  2.46  and  zero  ECR. 

Figures  2~3  thru  2-7  are  global  plots  of  pressure,  mass,  and  heat  re¬ 


lease  rate  versus  crank  angle.  Figures  2-8  thru  2-20  are  plots  of  velo¬ 
city,  spray  particle  distribution,  total  fuel  mas3  fraction  (TFMF), 
oxygen  mass  fraction,  and  temperature. 


2.5.1  Pressure,  Mass  and  Heat  Release  Rate 

Figure  2- 3  compares  the  XIVA  pressure  trace  with  the  test  results 
for  Test  Case  17  [19].  The  rapid  rise  in  the  XIVA  trace  has  two  proba¬ 
ble  causes.  The  global  chemistry  scheme  used  by  XIVA  does  not  include 
any  precursive  chemistry.  Once  ignition  is  allowed 'to  occur  the  pre¬ 
mixed  portion  of  the  fuel  vapor  is  burned  very  rapidly,  dependent  only 
on  temperature  and  equivalence  ratio.  Furthermore,  the  coarse  grid 
spacing  is  larger  than  the  actual  flame  thickness  so  that  the  burned 
mass  is  discretized  to  elements  larger  than  the  actual  burned  amount. 
This  results  in  excessive  flame  speeds  and  faster  burning. 

The  experimental  data  used  in  our  analysis  was  obtained  from  exper¬ 
iments  conducted  at  the  University  of  Wisconsin-Madison  (Chapter  4). 
Using  a  dump  and  quench  technique,  average  cylinder  NO  versus  crank 
angle  was  measured  in  a  direct-injection  diesel  engine.  [19]  Thi3  data 
is  difficult  to  obtain  and  so  far  as  we  know  it  is  the  only  time-re¬ 
solved,  cylinder-averaged  NO  data  available  for  DI  diesels.  The  NO  data 
from  these  experiments  is  internally  very  consistent  and  the  procedures 
thorough  and  well-documented.  Unfortunately,  the  experimental  pressure 
traces  have  some  questionable  features.  Thi3  can  be  seen  in  the  Test 
Case  17  results,  Figure  2-3.  Prior  to  ignition,  which  occurs  at  -7.8° 
ATDC ,  the  experimental  trace  shows  a  slight  loss  in  pressure  below  the 
motoring  trace.  Once  ignition  occurs,  the  pressure  increase  seems  to 
"fizzle  out"  instead  of  following  a  more  conventional  shape.  These 
discrepancies  occur  to  a  varying  degree  in  four  of  the  five  test  cases, 
but  in  Test  Case  19  these  problems  are  not  apparent.  See  Figure  2-4. 
Case  19  is  also  the  only  test  case  in  which  the  peak  experimental  pres¬ 
sure  exceeds  that  predicted  by  XIVA.  This  variable  pressure  loss  may 
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result  from  leakage  around  the  dumping  diaphragm  (see  Section  4 . i )  which 
was  replaced  after  each  dumping  event,  accounting  for  different  leakage 
from  run  to  run.  Another  uncertainty  in  these  traces  is  the  problem  of 
unburned  fuel.  The  KIVA  simulation  did  not  achieve  complete  combustion 
in  any  of  the  test  cases.  Although  hydrocarbons  were  not  measured  in 
the  experiment  it  was  observed  that  combustion  was  poor  and  a  great  deal 
of  smoKe  was  generated.  The  extent  to  which  KIVA  is  accurately  predict¬ 
ing  this  problem  is  not  known.  This  unknown  prevented  accurate  heat 
release  analysis  of  the  experimental  pressure  trace  to  determine  if 
leakage  was  occuring. 

Despite  these  discrepancies,  the  KIVA  results  provide  a  reasonable 
approximation  to  the  experimental  data  and  are  consistent  when  compared 
to  each  other.  This  is  an  important  characteristic  when  evaluating 
trends  in  the  SMM  results.  Figure  2-5  compares  the  KIVA  pressure  traces 
for  the  5  test  cases.  (Table  4-2)  Maximum  pressure  for  the  early  injec¬ 
tion  case,  Test  19,  is  10  to  15  atmospheres  higher  than  the  other  runs 
and  occurs  earlier.  Maximum  pressure  for  the  two  retarded  injection 
cases  with  FGR ,  Tests  20  and  21,  is  2- 3  atmospheres  lower  than  the  cases 
without  FGR,  Tests  17  and  13.  Test  20  has  the  lowest  peak  pressure. 
These  comparisons  are  the  same  for  the  KIVA  results  and  the  experimental 
results . 

The  neat  "elease  rate,  Figure  2-6,  has  a  typical  profile  for  diesel 
combustion  with  a  reasonably  long  ignition  delay.  The  large  premixed 
burning  spike  is  followed  by  diffusion  or  mixing  controlled  burning. 

The  noise  in  this  trace  is  attributed  to  the  relatively  coarse  grid 
where  the  burning  of  a  single  grid  cell  has  a  significant  effect  on  the 


overall  heat  release. 
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Figure  2-7  shows  mass  of  fuel  injected,  mass  of  fuel  evaporated, 
and  mass  of  fuel  burned  versus  crank  angle.  Once  ignition  occurs,  the 
mass  evaporated  trace  shoots  up  much  more  quickly,  closely  following  the 
mass  of  fuel  injected.  The  problem  with  incomplete  combustion  is  evi¬ 
dent  in  the  fuel  mass  burned  plot.  At  approximately  20°  ATDC  there  is  a 
distinct  elbow  in  the  mass  burned  curve  and  by  80°  only  85  per  cent  of 
the  fuel  has  burned.  This  is  attributed  to  a  lack  of  large  scale  con¬ 
vective  flow  in  the  lower  portion  of  the  bowl  and  possibly  to  insuffi¬ 
cient  penetration  of  the  fuel  jet. 

2.5.2  Mean  Local  Properties 

Before  analyzing  the  sequence  of  local  property  plots,  a  brief 
discussion  of  initial  conditions  is  necessary.  A  fundamental  assumption 
for  axisymmetric  calculations  is  that  the  3~D  flow  structure  during 
induction  is  short-lived.  Gosraan  reports  [11],  "for  axisymmetric  cham¬ 
bers  in  the  absence  of  complicating  features  such  as  port  arrangements 
which  produce  pre-swirl,  that:  (i)  The  induction-generated  mean  flow 
pattern  decays  very  rapidly  during  and  after  intake  valve  closure  and 
the  flow  during  compression  is  predominantly  driven  by  piston  motion. 

(ii)  The  induction  generated  turbulence  also  decays  rapidly."  However, 
in  his  experiments  with  a  shrouded  inlet  valve  a  single  strong  tumbling 
vortex  was  found  to  persist  long  enough  into  compression  to  be  sustained 
and  enhanced  by  the  compression.  Our  KIVA  runs  assume  only  solid  body 
swirl  (swirl  ratios  of  2.46  and  4.0)  for  the  initial  flow  at  -90°  ATDC, 
30  degrees  after  IVC.  Considering  the  use  of  a  shrouded  valve  to  gener¬ 
ate  swirl  in  the  test  engine  and  in  light  of  Gosman's  results,  our  as¬ 


sumed  initial  conditions  may  not  be  accurate,  but  they  are  necessary  to 


achieve  the  computational  savings  of  an  axisymmetric  solution. 

Figure  2-3  shows  the  location  of  fuel  spray  particles  at  three 
crank  angles  during  injection.  The  fuel  is  injected  from  a  point  at  the 
upper  left  hand  corner  of  the  axisymmetric  plot.  The  left  hand  side  of 
the  plot  is  the  centerline.  The  bottom  curved  surface  is  the  piston 
bowl  and  the  bottom  flat  surface  is  the  top  of  the  piston  in  the  squish 
region.  The  right  hand  vertical  surface  is  the  cylinder  wall  and  the 
flat  top  surface  is  the  cylinder  head.  Injection  starts  at  -15°  ATDC 
and  continues  until  +5°.  By  -5°  reasonable  penetration  has  been 
achieved,  but  combustion  has  started  and  evaporation  is  very  rapid.  3y 
TDC  evaporation  has  greatly  reduced  the  penetration  and  only  a  few  part¬ 
icles  remain  although  injection  is  still  going  on. 

Figures  2-9  thru  2-11  are  plots  of  the  swirl  velocity.  Note  that 
since  the  swirl  is  in  the  negative  direction  the  "L"  in  the  plots  repre¬ 
sents  the  largest  swirl  velocities  and  the  "H"  represents  the  smallest. 
The  swirl  profile  at  -90°  ATDC  is  strictly  solid  body  with  boundary  lay¬ 
ers.  3y  -15.95°,  just  prior  to  the  start  of  injection,  the  drag  in  the 
squish  region  is  evident,  but  the  profile  is  still  basically  solid  body. 
There  is  a  strongly  swirling  region  at  the  radius  just  inside  the  squish 
region.  This  is  due  to  the  conservation  of  angular  momentum  of  the 
squish  flow.  By  -9.99°  the  momentum  exchange  between  the  flow  and  the 
fuel  spray  is  evident.  Its  effect  is  to  slow  the  swirl  velocity  down, 
conserving  momentum.  This  is  particularly  true  along  the  cylinder  head 
where  the  spray's  ability  to  entrain  the  swirling  gas  is  limited.  Con¬ 
servation  of  angular  momentum  causes  the  swirl  to  increase  as  the  piston 
passes  TDC  with  the  maximum  swirl  velocity  increasing  from  12.3  m/s  at  - 
90°  to  14.7  m/s  at  +  51  and  then  decaying  to  9  • 14  m/s  by  +80°  ATDC. 
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Figures  2-12  thru  2-  1 4  are  plots  of  velocities  in  the  axisymmetnc 
plane.  At  -90°  ATDC  these  velocities  are  aero  at  the  cylinder  head  and 
equal  to  the  piston  speed  at  the  piston  with  a  .nearly  linear  profile 
from  piston  to  head.  By  -30°  flow  out  of  the  squish  region  has  already 
started  to  alter  the  initial  flow  condition.  By  -16?  the  squish  flow 
has  developed  into  a  well-defined  clockwise  vortex  in  the  piston  bowl, 
out  does  not  penetrate  into  the  boundary  layer  ceils. 

Injection  starts  at  -15°  ATDC.  Injection  is  at  a  24  degree  angle 
with  respect  to  the  cylinder  head.  The  velocities  induced  by  the  injec¬ 
tion  are  an  order  of  magnitude  larger  than  the  existing  flow  velocities. 
Since  the  plots  are  scaled  to  the  highest  velocities,  plots  from  -10°  to 
*10°  ATDC  are  dominated  by  the  spray  and  velocities  away  from  the  spray 
appear  to  be  zero.  The  spray  is  aole  to  entrain  gas  from  below,  but 
unable  to  entrain  gas  along  the  cylinder  head.  This  results  in  a  clock¬ 
wise  circulation  into  the  base  of  the  spray  and  out  along  the  head  as 
seen  in  Figure  2-13-  Combustion  starts  at  -7.2°  ATDC.  By  ’•5°  combus¬ 
tion  is  also  having  an  effect  on  the  flow.  Velocities  away  from  the 
combustion  zone  are  augmented  by  the  expansion  of  hot  gases.  3y  10°  the 
flow  bacx  into  the  squish  region  is  well-defined.  The  excess  from  the 

flow  along  the  cylinder  head  is  bent  down  into  the  bowl  generating  ano¬ 
ther  clockwise  vortex.  This  vortex  flow  meets  the  combustion  and  spray 

generated  flow  in  the  middle  of  the  bowl,  creating  a  stagnation  point. 

This  stagnation  point  is  also  evident  in  the  Total  Fuel  Mass  Fraction 
iTFMF),  oxygen  and  temperature  plots.  The  flow  is  again  dominated  by 
the  piston  motion  as  the  piston  continues  to  move  down. 

Figures  2-15  thru  2-20  are  contour  plots  of  total  fuel  mass  frac¬ 
tion  iTFMF }  ,  oxygen  mass  fraction  and  temperature. 


They  are  best  dis- 
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cussed  together  at  each  crank  angle.  At  -9.99°  ignition  has  not  oc¬ 
curred  and  evaporation  is  slow.  Fuel  vapor  is  confined  to  a  small  re¬ 
gion  around  the  center  of  the  spray.  The  evaporative  cooling  effect  is 
very  evident  in  thee  same  region  on  the  temperature  plot.  3y  -5°  ATDC 
combustion  has  started.  Mote  that  the  temperature  plot  indicates  a 
maximum  cell  temperature  of  3498  X.  This  is  extremely  high,  well  above 
the  adiabatic  flame  temperature  of  2940  X.  The  relatively  large  time- 
step,  when  applied  to  the  stiff  set  of  chemical-reaction  equations, 
causes  pressure  and  temperature  overshoots  in  large  rapidly-burning 
cells.  The  major  impact  of  these  temperature  overshoots  is  to  drive  the 
N0^  production  rate  calculated  by  XIVA  way  up.  At  TDC  combustion  is 
well  underway.  The  premixed  region  extends  out  to  the  Low  TFMF  contour. 
Temperature  profiles  inside  this  region  are  very  irregular  with  .no  dis- 
tinct  flame  front.  The  oxygen  inside  this  region  is  nearly  depleted  and 
the  premixed  burning  phase  is  almost  over.  3y  10°  ATDC  the  temperature 
contours  show  a  distinct  diffusion  flame  front  just  behind  the  Low  TFMF 
contour  moving  towards  the  curved  portion  of  the  bowl.  During  expansion 
the  steep  gradients  are  smoothed  out  by  turbulent  and  numerical  diffu¬ 
sion  resulting  in  a  large  diffusive  front.  The  expanding  grid  results 
in  increasing  and  excessive  numerical  diffusion  which  quickly  damps  out 
all  large  scale  convection.  This  limits  the  mixing  between  the  large 
untouched  air  mass  along  the  bottom  of  the  bowl  and  the  fuel- rich  com¬ 
bustion  region.  The  development  of  this  large  diffusive  front  coincides 
with  the  abrupt  change  in  the  burning  rate  seen  in  the  burned  fuel  mass 
plot.  The  oxygen  plots  also  show  a  very  large  region  of  unmixed  air 
along  the  curved  portion  of  the  bowl.  The  mixing  of  fuel  and  air  luring 
the  expansion  process  is  severely  limitied.  Since  the  numerical  diffus- 
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ivity  could  not  be  reduced  without  a  substantial  decrease  in  grid  spac¬ 
ing  and  a  corresponding  increase  in  run  time  it  was  decided  to  increase 
the  diffusivity  even  further.  In  order  to  compensate  for  the  loss  of 
large  scale  convection  and  reduce  the  unburned  fuel  at  the  end  of  the 
cycle,  diffusivity  was  artificially  increased  after  TDC . 

In  summary,  these  plots  provide  a  self-consistent  picture  of  the 
mixing  and  combustion  process  although  this  picture  differs  somewhat 
from  our  understanding  of  what  really  happens  in  a  DI  diesel.  We  would 
expect  greater  penetration  of  the  fuel  spray,  significant  convective  and 
large-scale  turbulent  flow  lasting  well  into  the  expansion  process  and 
more  complete  mixing  of  fuel  and  air  with  most  of  the  fuel  being  burned 
by  +80°  ATDC .  Deficiencies  can  be  explained  by  the  simplicity  of  the 
initial  conditions,  the  coarse  computational  grid,  and  the  universal 
problem  of  modeling  turbulence  and  turbulent  boundary  flows.  These 
deficiencies  become  most  significant  during  the  expansion  process.  For 
now,  KIVA  provides  the  best  multi-dimensional  picture  of  diesel  combus¬ 
tion  available.  It  Is  not  our  purpose  to  validate  or  improve  KIVA,  but 
to  evaluate  a  two-step  approach  for  predicting  emissions.  Results  are 
at  least  reasonable  and  internally  consistent,  particularly  near  TDC 
where  most  of  the  critical  NO  chemistry  takes  place.  KIVA  should  pro¬ 
vide  an  adequate  input  for  evaluating  the  SMM  approach. 

2.6  Processing  KIVA  Output 

Program  PRCMDM,  listed  in  Appendix  F.1,  processes  the  KIVA  output 
for  input  to  the  SMM.  Its  relationship  to  KIVA  and  the  SMM  are  illus¬ 
trated  in  Figure  1-U.  Table  2-1  defines  the  input  variables  to  PRCMDM. 
In  order  to  keep  the  quantity  of  data  generated  by  KIVA  within  reasona- 
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ble  limits  the  KIVA  output  is  presorted  into  ten  zones.  This  limits  the 
number  of  mixing  zones  in  the  5MM  to  ten,  but  allows  any  combination  of 
these  ten  zones  to  be  used.  Table  2-2  lists  the  ten  zones  and  the  vari¬ 
ous  combinations  used  in  our  analysis.  Table  2-3  defines  the  output 
variables  from  PRCMDM  to  the  SMM.  PRCMDM  has  four  functions: 

1.  Inputs  data  from  KIVA . 

2.  Combines  the  ten  zone  KIVA  data  to  achieve  the  ce- 
sired  zone  description. 

3.  Calculates  the  total  mass  flow,  fuel  vapor  flow  and 
burned  fuel  flow  between  zones  using  conservation  of  mass/ 
species . 

U.  Outputs  data  for  input  to  the  SMM. 

Ten  zone  KIVA  output  data  for  Test  Case  17  is  shown  in  Figures  2-21  thru 

2-U6.  The  zone  mass  plots,  Figures  2-21  and  2-22  illustrate  the  growth 
and  disappearance  of  zones.  At  the  start  of  injection,  -15°  ATDC ,  only 
the  air  zone,  zone  10,  exists.  As  fuel  is  evaporated  cells  become  rich¬ 
er  and  they  are  rezoned  into  progressi veiy  richer  zones.  In  this  way 
richer  zones  grow  out  of  leaner  ones.  The  coarse  grid  has  again  caused 

significant  noise  in  this  data.  Initially  we  were  concerned  about  the 

effect  of  this  noise  on  the  SMM  results.  To  determine  the  extent  of 
this  effect,  one  set  of  data  was  smoothed  before  input  to  the  SMM.  The 
difference  between  the  results  using  the  raw  data  and  the  results  using 
the  smoothed  data  was  negligible  and  all  subsequent  runs  were  made  using 
raw  data. 

The  data  was  also  checked  for  consistency.  The  total  zone  mass 
plus  the  total  zone  liquid  mass  equaled  the  original  charge  mass  plus 
the  mass  of  fuel  injected.  The  total  zone  liquid  mass  plus  the  total 
zone  fuel  vapor  mass  plus  the  total  zone  burned  fuel  mass  equaled  the 


mass  of  fuel  injected.  Mean  zone  temperature  was  highest  in  the  stoich¬ 
iometric  zone.  Zone  mixing  intensity  is  maximum  around  TDC  and  in  zones 
where  the  fuel  spray  is  most  prominent.  Mixing  intensity  decays  during 
expansion.  Zone  mean  TFMF  is  progressively  higher  in  richer  zones  and 
within  zone  limits.  Total  zone  volume  is  equal  to  the  cylinder  volume. 
NO^  mass  fraction  is  highest  in  zones  with  the  highest  mean  tempera¬ 
tures.  Cumulative  mass  of  fuel  evaporated  is  equal  to  total  zone  fuel 
vapor  mass  plus  total  zone  burned  fuel  mass  less  the  original  burned 
fuel  mass.  Total  heat  release  agrees  with  total  fuel  burned  and  total 
wall  heat  transfer  is  about  15  percent  of  the  total  heat  release. 
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CHAPTER  3 


THE  STOCHASTIC  MIXING  MODEL 


ft 


3 . 1  Assumptions 

The  basic  assumption  underlying  our  two-step  approach  is  that  an 
inhomogeneous  reactive  flow,  such  as  in  a  D.I.  diesel  engine,  can  be 
broken  down  into  zones  which  individually  may  be  modeled  as  stochastic 
mixing  zones.  It  is  further  assumed  that  these  zones  are  simply  con¬ 
nected  in  series  with  a  single  flow  in  or  out  from  the  preceding  zone 
and  a  single  flow  in  or  out  to  the  next  zone.  Total  fuel  mass  fraction 
(burned  -plus  unburned)  is  used  to  define  the  zones.  These  zones  are  not 
fixed  in  space,  but  constantly  change  as  the  total  fuel  mass  fraction 
distribution  within  the  cylinder  changes.  There  is  no  spatial  resolu¬ 
tion  within  the  zones  and  each  zone  is  considered  to  be  perfectly  macro- 
mixed.  Figure  3~1  illustrates  a  typical  zone  arrangement.  Output  from 
a  multi-dimensional  model  solution  is  used  to  define  the  zones,  to  spec¬ 
ify  the  flow  between  zones  and  to  constrain  certain  processes  within  the 
zones.  It  is  also  assumed  that  the  slower  emissions  chemistry  does  not 
produce  or  use  significant  energy  and  is  therefor  only  a  perturbation  of 
the  major  combustion  and  flow  dynamics  which  are  correctly  modeled  by 
the  MDM. 


raw 
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3.2  Model  Overview  and  Structure 

Prior  to  the  start  of  injection  only  the  air  zone  exists.  As  liq¬ 
uid  fuel  begins  to  evaporate  and  mix  with  the  surrounding  air  other 
zones  are  created.  The  MDM  specifies  the  flows  into  and  out  of  these 
zones.  These  flows  are  updated  in  the  3MM  with  data  from  the  MDM  at 
specific  update  times.  Evaporation,  heat  transfer,  mixing  intensity  and 
volume  in  the  3MM  are  also  specified  by  the  MDM  data.  Mass  in  the  3MM 
is  broken  up  into  equal  mass  units  called  elements.  Each  element  con¬ 
sists  of  two  primary  components,  unburned  fuel  vapor  and  burned  gas. 

The  burned  gas  fraction  (BGFR)  includes  air  and  burned  products.  The 
3GFR  is  assumed  to  be  in  equilibrium  for  a  given  temperature,  pressure 
and  burned  fuel  fraction  (FR).  Zone  mixing  occurs  by  random  selection 

of  two  elements  within  a  mixing  zone,  coalescence  of  these  two  elements 

• 

into  a  single  element  and  separation  back  into  two  elements  with  equal 
intensive  properties.  When  combustion  criteria  are  met  in  a  specific 
element  all  of  the  unburned  fuel  vapor  (1-BGFR)  is  instantaneously  con¬ 
verted  to  burned  gas  and  a  new  equilibrium  is  calculated  to  include  the 
additional  burned  fuel  fraction.  The  3MM  includes  submodels  for  updat¬ 
ing  chemical  properties,  evaporation,  heat  transfer  and  volume. 

Figures  3-2  and  3“  3  illustrate  the  3MM'3  basic  structure.  Figure 
1-a  illustrates  the  relationship  between  the  3MM  and  the  MDM.  There  are 
three  primary  inputs  to  the  3MM: 

1 .  Equilibrium  data.  Taoles  with  standard  enthalpy, 
specific  heat,  molecular  weight,  and  equilibrium  products  are 
stored  as  a  function  of  temperature,  pressure  and  total  equi¬ 
valence  ratio.  These  properties  are  calculated  using  the 
'IA3A  equilibrium  code  as  iescribed  ;n  Appendix  D. 

2.  MDM  data.  The  processed  MDM  output  as  iescribed  in 


.V.v 
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Section  2.5  includes  mass  flow,  zone  fuel  evaporated,  zone 
volume,  zone  heat  transfer,  and  zone  mixing  intensity. 

3.  NAMELIST  data.  Contains  the  SMM  simulation  control 
parameters,  combustion  and  soot  parameters,  and  fuel  charac¬ 
teristics. 


The  equilibrium  data  and  NAMELIST  data  are  input  at  the  start  of  the 
simulation  by  Program  SMM.  Program  SMM  updates  the  simulation  time  and 
initiates  the  mixing  events.  When  it  is  time  for  the  next  MDM  update, 
Program  SMM  calls  Subroutine  SMZ.  Subroutine  SMZ  first  completes  the 
previous  MDM  timestep  for  each  zone  by  updating  the  heat  transfer,  up¬ 
dating  the  chemical  properties,  and  conserving  volume.  Subroutine  SMZ 
then  reads  the  MDM  data  for  the  next  MDM  timestep  and  uses  it  to  specify 
the  flow  between  zones  and  to  update  evaporation.  It  also  calculates  a 
new  mixing  time  for  each  zone.  The  smallest  of  these  mixing  times  is 
used  by  Program  SMM  as  the  basic  simulation  time  increment.  Once  these 
updates  have  been  made,  control  returns  to  Program  SMM  and  mixing  con¬ 
tinues  until  the  next  update. 


3 . 3  Submodels 

The  following  sections  describe  the  various  submodels  included  in 
the  SMM.  The  fundamental  structure  of  these  submodels  relies  heavily  on 
w or*  done  by  Mansouri  ~2]  and  Sztenderowicz  121]  although  the  overall 
structure  and  application  is  quite  different. 


3.3.1  Mixing 

Program  SMM  calls  Subroutine  MIXING  whenever  it  is  time  for  a  mix¬ 
ing  event  in  a  particular  zone  i.  This  subroutine  performs  zone  mixing. 


Our  basic  approach  requires  that  the  individual  zones  be  modeled  as 
stochastic  mixing  zones.  Appendix  C  describes  the  details  of  this  meth¬ 
od.  Each  mixing  zone  is  perfectly  macromixed  with  the  degree  of  micro¬ 
mixing  determined  by  the  mixing  intensity,  3..  The  method  used  for 
mixing  is  coalescence/dispersion . 

Each  zone  consists  of  N.  equal  mass  elements.  Turbulent  mixing 
within  zone  i  is  character ized  by  the  mixing  intensity: 


1 

3.=  -  (3-1 

1  T 

m. 

i 

where  t  .  is  the  characteristic  time  for  all  elem>  nts  in  the  zone  i 
mi 

ensemble  to  undergo  one  mix.  For  elements,  the  time  between  element 
mixing  events,  t  .  is: 


1 


(3.2) 


A  single  mixing  event  in  zone  i  consists  of  the  following: 

1.  Two  elements  within  zone  i  are  chosen  at  random. 

This  is  accomplished  using  a  random  number  generator  which 
produces  values  of  a  single  random  variable  that  is  evenly 
distributed  between  zero  and  one.  This  value  is  multiplied 
by  the  number  of  elements  in  the  zone  and  rounded  up  to  the 
nearest  integer.  This  integer  identifies  the  element  number, 
i.  The  probability  that  any  one  element  will  be  cnosen  is 
1/N.  . 

l 

2.  The  properties  of  each  element  are  updated. 

3.  The  elements  are  combined  and  then  separated  again 
into  two  elements  with  equal  properties,  conserving  species 
mass  and  enthalpy. 

d.  If  the  new  elements  satisfy  the  combustion  criteria 


after  mixing,  they  are  burned. 
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The  characteristic  mixing  time,  t ,  is  the  same  order  of  magnitude 

as  the  kinetic  update  time,  consequently  t  becomes  very  small  for 

large  values  of  M. .  The  value  of  t  .  is  updated  for  each  zone  at  the 
1  mi 

start  of  each  MDM  timestep  and  the  smallest  of  the  zone  mixing  times  is 
used  by  Program  SMM  for  the  basic  simulation  timestep. 


3.3-2  Flow 

Subroutine  SMZ  calls  Subroutine  FLOW  at  the  start  of  each  MDM  time- 
step.  As  discussed  in  Section  2.5,  Program  PROCMDM  uses  conservation  of 
mass  to  calculate  net  mass  flow,  fuel  vapor  mass  flow,  and  burned  fuel 
mass  flow  between  zones.  These  flows  represent  convection,  turbulent 
diffusion,  and  the  rezoning  of  cells  to  richer  or  leaner  zones  due  to 
changes  in  their  total  fuel  mass  fraction.  These  are  net  flows.  They 
do  not  consider  all  exchanges  back  and  forth  across  zone  boundaries. 

-  The  flow  between  zones  in  the  model  must  be  accomplished  within  the 
model  structure.  This  means  exchanging  elements  between  two  ensembles 
of  elements.  In  order  to  develop  an  effective  algorithm  for  modeling 
the  flow,  the  following  objectives  and  constraints  were  considered: 

1 .  Zone  elements  must  be  kept  intact. 

2.  The  selection  of  elements  should  adhere  to  the  basic 
"random  selection"  criteria  to  the  greatest  extent  possible. 

3.  The  exchange  of  elements  must  transfer  the  correct 
net  mass  flow  (FM) . 

4.  The  exchange  of  elements  must  transfer  the  correct 
amounts  of  fuel  vapor  (FMV)  and  burned  fuel  (FMBF).  To  ac¬ 
complish  this,  combustion  in  each  zone  must  approximate  the 
MDM  and  the  flow  algorithm  must  include  one  for  one  exchange 
of  elements  across  the  boundary  in  addition  to  the  net  flow. 

5.  The  resulting  overall  distribution  of  elements  ac¬ 
cording  to  total  fuel  mass  fraction  should  be  continuous  at 
zone  boundaries  and  should  converge  to  a  single  distribution 
as  the  number  of  zones  increases. 


A  number  of  alternative  algorithms  were  tried.  The  following  algo- 
thm  best  satisfied  our  objectives  and  constraints  (Refer  to  Figure  3- 

1 .  Calculate  the  number  of  elements  required  to  flow 
between  zones  to  satisfy  the  net  total  mass  flow  (FM) .  The 
net  mass  flow  between  any  two  zones  will  be  from  a  donor  zone 
to  a  receiving  zone.  Arrows  in  Figure  3-1  indicate  the  posi¬ 
tive  direction,  but  FM ,  FMV  and  FMBF  may  be  independently 
positive  or  negative. 

2.  The  flows  are  considered  is  sequence,  starting  with 
flow  number  one.  (FM( 1  )  ,FMV( 1 ) ,FMBF( 1 ) ) 

3.  Elements  in  the  donor  zone  are  sorted  into  three 
groups:  (1)  Elements  containing  fuel  vapor  (total  fuel  mass 
fraction  greater  than  the  upper  limit  for  combustion),  (2) 

Elements  rich  in  burned  fuel  (burned  fuel  fraction  greater 
than  the  lower  limit  for  combustion)  and  (3)  Lean  elements 

( other ) . 

U.  When  selecting  the  flow  elements,  if  the  required 
fuel  vapor  flow  (FMV)  is  in  the  same  direction  as  the  total 
flow  (FM)  and  exceeds  the  required  burned  fuel  flow  (FMBF), 
random  elements  are  selected  from  Group  1  in  the  donor  zone 
and  added  to  the  receiving  zone.  If  the  required  burned  fuel 
flow  (FMBF)  is  in  the  same  direction  as  the  total  flow  (FM) 
and  exceeds  the  required  fuel  vapor  flow  (FMV),  random  ele¬ 
ments  are  selected  from  Group  2  in  the  donor  zone  and  added 
to  the  receiving  zone.  Otherwise  random  elements  are  select¬ 
ed  from  Group  3  in  the  donor  zone  and  added  to  the  receiving 
zone.  If  the  elements  in  a  particular  group  run  out  and  an 
element  is  required,  a  random  element  is  selected  from  all 
the  remaining  elements  in  the  donor  zone  and  added  to  the 
receiving  zone.  This  net  flow  process  is  continued  until  the 
total  mass  flow  requirement  (FM)  is  satisfied. 

5.  Once  the  net  total  mass  flow  has  been  achieved  there 
may  still  be  significant  discrepancies  in  fuel  vapor  (FMV) 
and  burned  fuel  (FMBF)  flows.  These  discrepancies  are  cor- 
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rected  by  exchanging  elements  one  for  one  between  the  two 
zones.  Elements  in  both  zones  are  sorted  into  the  groups  as 
described  in  item  3  above.  One  element  is  selected  from  each 
zone  according  to  the  same  criteria  as  item  4  above.  These 
elements  are  exchanged  between  the  two  zones.  This  process 
is  repeated  until  the  fuel  vapor  and  burned  fuel  flows  are 
within  tolerance  or  one  of  the  groups  runs  out  of  elements. 

Subroutine  FLOW  accomplishes  the  net  flows  and  calls  Subroutines  MIXINGA 
or  MIXINGS  if  one  for  one  exchange  is  required  to  accomplish  the  correct 
fuel  vapor  and  burned  fuel  flows.  Subroutine  MIXINGA  is  used  for  flow 
to  and  from  the  air  zone.  Subroutine  MIXINGS  is  used  for  all  other 
flows . 

3-3-3  Evaporation  Model 

The  amount  of  fuel  evaporated  in  each  zone  during  the  next  MDM 
timestep  is  input  with  the  MDM  data  by  Subroutine  SMZ  at  the  start  of 
each  MDM  timestep.  If  this  amount  exceeds  the  mass  of  one  element  and 
if  there  are  already  elements  in  the  zone  with  which  the  fuel  vapor  can 
mix,  Subroutine  SMZ  calls  Subroutine  SVAP. 

Subroutine  EVAP  selects  a  random  element  already  in  the  zone,  up¬ 
dates  its  properties  and  mixes  it  with  a  pure  fuel  vapor  element.  The 
sensible  and  latent  heat  required  to  bring  a  liquid  fuel  element  to 
saturation  temperature  and  evaporate  it  is  subtracted  from  the  enthalpy 
of  the  mixed  elements.  Otherwise  species  mass  and  enthalpy  are  con¬ 
served  as  in  a  normal  mixing  event.  The  elements  are  separated  into  two 
elements  with  equal  properties.  This  process  is  repeated  until  the  mass 
of  fuel  vapor  added  is  equal  to  the  required  evaporated  fuel  mass  for 
the  timestep.  Required  evaporation  in  excess  of  the  mass  of  an  integer 


number  of  elements  is  carried  over  to  the  next  MDM  timestep. 


3.3.4  Ignition  Delay  and  Combustion  Model 

Elements  are  tested  to  determine  if  they  satisfy-  the  combustion 
criteria  whenever  chemical  properties  are  updated  arid  before  and  after 
each  mixing  event.  Subroutine  PROP  is  called  by  Subroutine  SMZ  when  the 
time  since  the  last  kinetic  update  exceeds  the  specified  kinetic  update 
time  and  prior  to  the  mixing  of  two  elements.  If  an  element  contains 
unburned  fuel  Subroutine  PROP  will  call  Subroutine  CMBUST.  Subroutine 
CMBUST  is  also  called  after  mixing  if  the  mixed  elements  contain  un~ 
ourned  fuel.  If  an  element  satisfies  the  combustion  criteria,  Subrou¬ 
tine  CMBUST  instantaneously  burns  the  element  at  constant  pressure  to 
equilibrium  products.  A  new  temperature  is  calculated  for  the  products 
by  Subroutine  3TEMP  and  the  element's  burned  gas  fraction  (BGFR)  is  set 
to  one. 

The  oomoustion  criteria  are: 


1.  The  element  must  contain  unburned  fuel.  (3GFR  <  1) 

2.  The  element's  ignition  preparation  factor  must  exceed 

one.  (PREP .  >  1  ) . 

1 

3.  The  element's  total  fuel  equivalence  ratio  must  be 

within  combustible  limits.  (<j  <  i>  <  ) 

Lj  »\ 

7'ne  ignition  delay  preparation  factor  in  element  i  is  calculated  as 

1 


f ollows : 


where  the  ignition  delay  time  is  expressed  as  [22]: 

- 1  no 

x .  , ( t .  )  -  3 - ^5E- 3  ?  exp( 21 00/T . )  Cs)  (3-4) 

l  d .  j  i 

Combustible  equivalence  ratio  limits  of  0.3  to  1.5  were  found  to  best 
reproduce  zone  combustion  as  predicted  by  KIVA. 

The  3MM  combustion  model  is  not  constrained  by  the  combustion  pre¬ 
dicted  in  the  KIVA  solution.  Two  significant  problems  with  the  KIVA 
solution  (Section  2.5)  made  this  necessary:  (1)  KIVA's  initial  burning 
was  too  fast,  (2)  Excessive  numerical  diffusion  damped  out  large  scale 
convection  and  mixing,  resulting  in  significant  unburned  fuel.  The  3MM 
was  able  to  correct  these  deficiencies  to  some  extent,  but  in  the  pro¬ 
cess  the  quantity  of  burned  versus  unburned  fuel  in  the  SMM  solution  was 
very  different  from  the  KIVA  solution.  This  caused  problems  with  the 
SMM  flow  algorithm  which  is  constrained  to  match  the  flow  of  burned  and 
unburned  fuel  in  the  KIVA  solution.  Ideally,  if  the  KIVA  solution  were 
correct,  the  SMM  combustion  should  be  constrained  to  agree. 

3.3.5  Heat  Transfer  Model 

Wall  heat  transfer  is  updated  at  the  end  of  each  MDM  timestep  by 
Subroutine  QWALL.  QWALL  is  called  by  Subroutine  SMZ.  The  wall  heat 
transfer  calculated  by  KIVA  includes  only  convection/ conduction.  Radia¬ 
tion  heat  transfer  is  not  calculated  by  KIVA.  The  purpose  of  Subroutine 
QWALL  is  to  distribute  the  zone  heat  transfer  specified  by  KIVA  among 
the  zone  elements.  The  heat  transfer  to  a  particular  element  is  assumed 
to  be  proportional  to  its  surface  area  and  to  the  temperature  difference 
between  the  element  and  the  wall: 


where: 
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'.Vail  heat  transfer  for  element  i. 
Wall  temperature. 

Temperature  of  element  i. 

Specific  volume  of  element  i. 


Given  that  this  relationship  is  true  for  all  elements: 
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Q  is  added  to  the  element  enthalpy  for  each  element. 
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3.3.5  Volume  Constraint 

In  addition  to  conservation  of  mass,  species  and  energy,  the  total 
volume  of  all  the  elements  must  be  equal  to  the  actual  cylinder  volume. 
This  constraint  effects  conservation  of  energy  through  the  ?V  term  in 
the  First  Law.  Considering  conservation  of  energy  for  one  element: 


or : 
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where : 
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)-H. 


change  in  enthalpy  of  element  1 


Q .  =  heat  transfer  into  element  i 

7.  =  volume  of  element  i 

p  =  pressure 

The  volume  constraint  is  updated  at  time  t^, .  At  this  time  all  other 
MDM  timestep  processes  have  been  completed  (mixing,  combustion,  heat 
transfer).  These  processes  are  accomplished  at  constant  pressure  with 
no  volume  constraint.  The  additional  enthalpy  change  which  results  fro 
adi abati tally  updating  the  element  volume  may  be  expressed  as: 
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where: 


(3.9 


t,  =  start  of  the  MDM  timestep 


end  of  the  MDM  timestep  before  the  volume  update 


end  of  the  MDM  timestep  after  the  volume  update 


:  (t)  =  c  (t.,)  =  specific  heat  at  constant  Dressure 

p  p  2' 


R ( t )  =  R(t  )  =  gas  constant 


Suoroutine  VOLUME  uses  an  iterative  technique  to  calculate  new 
element  temperatures  and  a  new  3MM  pressure  while  satisfying  the  volume 
constraint.  Solving  for  T  (t5),  Equation  (3-9)  becomes: 


T.(t.,) 


. 5 v . (t, )Ap/c  (t  ) 


The  iterative  procedure  is  as  follows: 


1.  A  value  for  p( t5)  is  assumed.  For  the  first  itera¬ 
tion  p(tp)=p(t, ) .  Afterwards  p( t?)  is  calculated  on  the 
previous  iteration. 

2.  Ap=p( t_,)-p( t1 ) . 

3.  Mew  element  temperatures  and  volumes  are  calculated 
using  Equation  (3. 10)  and  the  ideal  gas  law. 

4.  Total  element  volume  is  calculated  and  compared  to 
the  required  value.  If  the  total  element  volume  is  within 
tolerance  the  iteration  stops  and  element  properties  are 
updated.  If  not,  a  new  value  for  p(t^)  is  calculated  using: 


:p(t2)] 


new 


;SMM 

V 

MDM 


1  [P(t2,]oia 


(3.11 


wnere: 

*  £  (mv.  )  =>  sum  of  the  element  volumes 
oMM  .  I 
1 

7MDM  =  aecluired  cylinder  volume 

This  value  is  used  to  start  another  iteration. 

Suoroutine  VOLUME  is  called  by  Subroutine  SMZ  at  the  end  of  every  MDM 
timestep. 


3.3*7  MC  Model 

Mi  trie  oxide  (MO)  is  the  predominant  oxide  of  nitrogen  produced  in 
an  engine.  The  principal  source  of  MO  is  the  oxidation  of  atmospheric 
oxygen.  In  lean  and  near-stoichiometric  mixtures  the  principal  reac¬ 
tions  governing  the  formation  of  MO  are  those  proposed  by 
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1  .  0  +  M,  -  MO  *  N  (3-12) 

2.  M  -  0_,  =  MO  *  0  (3-13) 

Lavoie,  Heywood  and  Keck  [2*0  suggest  an  extension  to  this  mechanism 
especially  for  rich  mixtures: 

3 .  M  +  OH  »  MO  H  (3*  1  u) 

Assuming  a  steady-state  approximation  for  the  nitrogen  atom  concentra¬ 
tion,  [M],  and  using  this  extended  Zeldovich  mechanism,  rate  expressions 
recommended  by  3owman  [25]  reduce  to  the  following  simplified  expres¬ 
sion: 

d[MO ]  +  1  -  [MO]2/  X[0  ][N,] 

—rr —  -  2k  [0][M  ][  - - - - — - - - -  i  (gmole/cc  •  s ),  (3-15) 

’  1  *  k1[M0]/(k2C02]  -  :<3[0H]) 

where: 

[  ]  =  species  concentration  (gmole/cc) 

k*,k  =  forward  and  backward  reaction  coefficients 
r  r 

K  -  )\k*/k  ) 

Since  MO  production  in  the  post-flame  gases  dominates  flame-front  pro¬ 
duced  MO,  combustion  and  MO  formation  processes  are  assumed  to  be  de¬ 
coupled.  Concentrations  of  0,  02,  OH,  H  and  M2  may  then  be  approximated 
by  their  equilibrium  values: 

2k^'J2(1  -  cT) 

o.(1  *  aU  ^ ) 


d[M0] 

“It 


(gmole/cc-s) 


(3-16) 


where: 


T\  »  temperature  of  element  i  (X) 

=  gas  density  of  element  i  (g/cc) 

[  ]  =*  equilibrium  species  concentration  (gmole/cc) 

ct  =  [NO  ]/U 

U  =*  [N0]a 


U 


3 


kfo2]e[0]e 

k2[N]eC°2]e*  k3[N]eC0H] 
7.6E13  exp(-38000/T. ) 

1  .5E9  exp(-19500/T. ) 
4.1E1 3 


e 

( cc/gmole  *s ) 
(cc/gmole-s) 
(cc/gmole-s) 


[25] 

[26] 
[25] 


Subroutine  PROP  updates  NO  concentration  in  an  element  using  Equation 
(3.16).  Equilibrium  values  for  U1,  02,  and  U3  are  provided  in  the  NASA 
equilibrium  data  for  a  range  of  temperatures,  pressures  and  equivalence 
ratios  of  the  burned  gas.  Subroutine  SPECNO  interpolates  between  the 
tabular  values  to  calculate  01,  02,  and  03  at  the  specified  temperature 
pressure  and  equivalence  ratio. 


3-3-3  Soot  Model 

Diesel  particulates  consist  primarily  of  soot  on  which  some  in- 
burned  hydrocarbons  have  been  absorbed.  The  individual  oarticles  are 


found  to  be  clusters  of  many  small  spheres  or  spherules  of  carbon.  [27] 

A  typical  composition  of  dry  soot  might  be  CH  ^0  ^ ,  but  this  var¬ 

ies  widely.  Spherules  have  a  concentric  lamellate  structure  much  like 
the  layers  of  an  onion.  Spherules  vary  in  diameter  between  10  and  80 
run,  but  most  are  in  the  1 5—  30  nm  range.  Spherule  density  is  approxi¬ 
mately  1.8  g/cc. 

Most  of  the  information  available  on  the  fundamentals  of  soot  for¬ 
mation  comes  from  studies  in  simple  premixed  and  diffusion  flames, 
stirred  reactors,  shock  tubes,  and  constant  volume  combustion  bombs. 

[28]  Soot  measurements  in  DI  diesel  engines  and  in  similar  fuel  rich 
diffusion  flames  show  high  concentrations  of  soot  in  and  around  the 
fuel-rich  cores.  This  indicates  that  pyrolysis  is  an  important  source 
of  soot.  Amann  and  Siegla  [27]  conclude  that  the  production  of  diesel 
particulates  involves  a  complex  series  of  chemical  and  physical  proces¬ 
ses.  These  are  represented  in  Figure  3-4. 

The  precise  details  of  the  chemistry-  leading  to  the  formation  of 
soot  are  not  well  understood.  Figure  3-5  represents  a  simple  mechanis¬ 
tic  model  for  the  nucleation  of  soot.  [28]  At  low  temperatures  an  aro¬ 
matic  hydrocarbon  can  produce  soot  via  a  relatively  fast,  direct  route 
that  involves  condensation  of  the  aromatic  rings  into  a  graphitelike 
structure.  This  production  increases  with  temperature  up  to  around 
1800K.  Experiments  by  Prado  and  Lahaye  [29]  support  such  a  condensation 
mechanism.  Above  1800K,  a  slower  indirect  route  is  favored  that  re¬ 
quires  break-up  into  smaller  fragments  which  polymerize  to  ultimately 
form  soot  nuclei.  An  ionic  mechanism  proposed  by  Howard  [30]  may  also 
contribute  to  soot  formation,  but  it  does  not  appear  to  be  a  major  con¬ 


tributor  . 
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Given  the  very  limited  knowledge  about  these  mechanisms  and  the 
total  lack  of  quantitative  prediction  methods,  we  ultimately  selected  an 
empirical  correlation  for  predicting  soot  formation.  Wang,  Matula  and 
Farmer  [31]  studied  soot  formation  for  toluene  behind  reflected  shock 
waves  over  the  temperature  range  1400  K  to  2500  K  and  the  pressure  range 
2.5  to  10  atmospheres  using  a  laser  beam  attenuation  technique.  Their 
results  were  consistent  with  the  nucleation  mechanism  discussed  above 
and  they  included  two  correlations,  one  with  oxygen  in  the  mixture  and 
one  without.  This  provides  a  low  oxygen  limit  on  the  formation  rate 
rather  than  having  a  rate  which  gets  very  large  as  the  oxygen  goes  to 
zero.  The  large  temperature  and  pressure  range  of  their  data  approaches 
that  found  in  diesel  combustion. 

The  correlation  equation  of  the  apparent  soot  formation  rate  for 
toluene/ argon/ oxygen  mixtures  is  given  by: 


5.55E16  [C,HQ]2*59[Ar],13exp[-41 .3/RT  -  48.1o(1/RT  -  1/RT  )] 


(g/cc*s) 


where: 


[  ]  species  concentration  (gmole/cc) 
3  =  Universal  gas  constant 


1300  K 


0  for  T  $  T 


1  for  T  >  T 


For  toluene/argon  mixtures  (low  0  limit): 


mmmnmasm 


Hsoot*  1*0UE13  "C7H3]  LAr]'  exp[-29.7/RT  +  39.7o(1/RT  -  1/RTm)] 

(g/cc*s)  (3-18: 

These  rate  equations  were  multiplied  Py  a  calibrating  constant  (SOOTC) 
and  applied  directly  in  the  model  with: 


LC7H8]  =  -C10.8H18.7] 


(3.19: 


-  V  ™  '  [C10.3H18.7]  -  C°2] 


(3.20) 


soot . 
1 


soot  mass  formation  rate 
for  element  i 


m  v.R  .  (g/s) 

e  1  soot.  ® 

1 


(3.21  ) 


where: 


element  mas3  (g) 


v.  =•  specific  volume  of  element  i  (cc/g) 


The  .purpose  of  the  calibrating  constant  is  to  relate  the  rate  of 
sooting  for  diesel  fuel  in  a  turbulent  flow  to  that  of  toluene  in  a 
shock  tube  experiment.  All  the  soot  mass  formed  during  a  timestep  is 
assumed  to  take  the  form  of  new  spherules  of  density  Pgoot  and  radius 
r  .  The  soot  surface  area  contributed  by  these  new  spherules  is: 


3m  .  At 
soot. 

_ 1 

P  kn 
soot  o 


(cm2) 


(3-22) 


Occurring  simultaneously  with  soot  formation  is  soot  oxidation. 

Park  and  Appleton  [32]  have  shown  that  the  surface  reaction  rate  for  the 
oxidation  of  soot  in  a  flame  is  nearly  the  same  as  that  for  pyrolytic 
graphite.  In  lean  and  near-stoichiometric  mixtures  where  02  is  the 
primary  oxidant  the  semi-empirical  formula  proposed  by  Nagle  and  Strick- 


r*, 


'  ’i* 
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iand-Constaole  [33]  das  proven  very  satisfactory  for  predicting  this 
"eaction  rate.  Measurements  taken  by  Neoh  and  Howard  [34]  indicate  that 
in  fuel  rich  flames  the  3H  radical  becomes  the  principal  oxidant  and 
that  the  rate  predicted  by  Nagle  and  Strickland-Constable  under-predicts 
soot  oxidation.  This  effect  could  be  significant  in  the  richer  region 
of  the  diesel  fuel  spray  where  most  of  the  soot  is  formed,  although  the 
overall  diesel  equivalence  ratio  is  very  lean.  Since  the  quantitative 
effect  of  the  OH  radical  has  not  been  thoroughly  evaluated  for  the  full 
range  of  equivalence  ratios  encountered  in  diesel  combustion,  only  the 
Nagle  and  Strickland-Constable  formula  will  be  used  here: 


r  Vo2x  ,  ,,  ,  ,  2  , 

“ox.”  !2  ‘  iVk-p  *  V02"  ‘  *>  *  !g/om  -3) 

1  4  Jt 


:  3 .23 ) 


where: 


1  *  Wo2 


-  20.  exp(-1 5000/J  ) 
k3  -  4. 462- 3  exp ( 7640/T . ) 

'k  =•  1.5125  exp (- 48000/T  ) 
k7  =21.3  exp( 2060/T . ) 

p^_  =*  partial  pressure  of  0  in  element  i  'atm) 

J  c _  _ 

After  formation  and  oxidation  curing  kinetic  timestep,  At,  the  final 
soot  mass  becomes: 


i.  -  m  _  +  m  At-jj  'A 

soot .  _  soot .  .  soot .  jX  soot 

1,2  i  ,  ’  i  ; 
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CHAPTER  FOUR 


EXPERIMENTAL  DATA 
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a . 1  Data  Requirement 

In  order  to  evaluate  the  Stochastic  Mixing  Model  it  was  necessary 
to  obtain  or  generate  test  data.  The  calculation  of  Nitric  Oxide  (NO) 
by  the  SMM  is  dependent  on  only  one  calibrating  constant.  This  is  the 
scaling  factor  for  mixing  intensity.  This  constant  is  adjusted  to  match 
the  mass  of  fuel  burned  in  each  zone  and  the  overall  pressure  trace  to 
the  MDM  results.  This  adjustment  does  not  consider  NO  and  does  not 
consider  .experimental  results.  Consequently,  NO  is  an  unbiased  indica¬ 
tor  of  how  well  the  SMM  method  is  predicting  slow  chemistry.  The  SMM 
provides  cylinder  averaged  NO  mass  fraction  as  a  function  of  crank  an¬ 
gle.  Most  diesel  NO  data  is  derived  from  either  probe  sampling,  spec¬ 
troscopic  analysis  or  exhaust  measurements.  Probe  studies  provide  local 
NO  measurements  at  various  crank  angles,  but  do  not  provide  cylinder- 
averaged  values.  Spectroscopic  analysis  is  severely  limited  in  direct 
injection  diesels  because  of  the  opaque  diesel  spray  and  overwhelming 
soot  radiation.  Exhaust  measurements  do  not  resolve  crank  angle  depen¬ 
dence.  One  technique  that  does  provide  this  data  is  to  dump  and  quench 
the  cylinder  contents  for  chemical  analysis  at  various  crank  angles. 
Fortunately,  the  University  of  WisConsin-Madison  has  had  an  ongoing 
study  using  this  technique  and  their  results  will  be  used  in  our  analy¬ 
sis.  119,35,36,37,38]  The  specific  test  cases  we  have  used  are  those 


discussed  in  Reference  [35]. 

4 . 2  Description  of  the  Test  Engine  and  Apparatus 

The  test  engine  used  at  the  University  of  Wisconsin  is  a  single¬ 
cylinder  direct-injection  diesel  engine.  The  speci.fi  cat  ions  for  this 
engine  are  listed  in  Table  4-1.  Dumping  of  the  cylinder  contents  is 
achieved  by  cutting  a  one-inch  diameter  steel  diaphragm  mounted  in  the 
cylinder  head,  allowing  the  cylinder  gas  to  expand  into  a  quench  cham¬ 
ber.  This  process  is  repeated  at  various  crank  angles  for  a  fixed  en¬ 
gine  operating  condition,  providing  a  history  of  cylinder- averaged  NO 
over  the  combustion  cycle. 

Figure  4-1  is  a  diagram  of  the  cylinder  head  and  combustion  cham¬ 
ber.  This  head  was  specifically  designed  and  manufactured  for  their 
experiments.  It  contains  a  one  inch  diameter  dumping  port,  injector 
hole,  exhaust  port,  and  intake  port  with  a  shrouded  intake  valve.  The 
shrouded  intake  valve  allows  experiments  at  various  swirl  ratios. 

Shroud  adjustment  was  calibrated  at  steady  flow  condi ti.ons  for  a  reason¬ 
able  range  of  swirl  values  using  a  paddle-wheel  transducer. 

Figure  4-2  is  a  diagram  of  the  dumping  system.  Its  major  compo¬ 
nents  are  the  quench  chamber,  the  ball  valve  which  isolates  the  quench 
chamber  from  the  engine  immediately  after  dumping,  the  connecting  tube 
which  holds  the  diaphragm  and  cutting  mechanism,  the  cutter  actuating 
mechanism,  and  the  pressure  safety  valve.  The  diaphragm  is  held  at  one 
end  of  the  connecting  tube  by  clamping  between  outer  and  inner  concen¬ 
tric  tubes.  The  cutter  is  a  third  concentric  tube  which  slides  inside 
the  inner  clamping  tube.  When  the  cutter  tube  is  forced  down  by  the 
actuating  mechanism  the  diaphragm  is  sheared  around  its  circumf erence. 


The  rapidly  expanding  cylinder  gases  cause  it  to  fold  upward  around  a 
diagonal  cross-member.  This  process  takes  about  0.1  ms.  80$  of  the 
cylinder  gases  are  collected.  The  quench  tank  is  isolated  from  the 
connecting  tube  and  engine  by  a  ball  valve.  The  tank  is  designed  to 
provide  an  adequate  volume  of  helim  quenching  gas  -and  to  dissipate  the 
shock  produced  by  the  inflow. 

Figure  4- 3  is  a  schematic  of  the  dumping  and  control  system.  The 
dumping  event  is  triggered  by  a  signal  from  a  magnetic  pickup  placed  on 
the  camshaft.  This  signal  is  received  by  a  timing  circuit  which  actu¬ 
ates  the  cutter  mechanism  solenoid  and  synchronizes  engine  shutdown  and 
isolation.  This  includes  closing  the  ball  valve,  the  engine  intake  and 
exhaust  valves,  and  the  fuel  cut-off  valve. 

The  engine  is  equipped  with  an  electric  dynamometer  and  a  digital 
counter  to  measure  speed.  Fuel  consumption  is  measured  using  a  fuel 
weighing  balance  and  electronic  timer.  Air  supply  is  measured  using  a 
critical  flow  orifice.  Cylinder  pressure  is  measured  using  a  piezo¬ 
electric  transducer. 

A  complete  test  run  proceeds  as  follows: 

1 .  The  engine  is  started  and  warmed  up. 

2.  With  the  diaphragm  in  place  and  the  ball  valve  open, 
the  quench  tank  is  pumped  out  using  a  vacuum  pump  and  re¬ 
filled  with  helium.  This  is  repeated  several  times  to  ensure 
that  all  air  has  been  removed  from  the  system.  The  final 
helium  pressure  is  set  slightly  above  atmospheric.  Quench 
tank  temperature  and  pressure  are  recorded. 

3.  The  triggering  signal  is  set  to  occur  at  the  desired 
crank  angle.  This  value  will  only  approximate  the  dump  an¬ 
gle.  The  actual  value  is  obtained  by  analyzing  the  cylinder 
pressure  trace. 

4.  The  timing  circuit  is  activated  and  the  cylinder  is 


dumped  on  the  next  complete  cycle  after  receipt  of  the  trig¬ 
gering  signal. 

5.  The  cylinder  pressure  recorder  is  also  activated  for 
the  dumping  cycle. 

6.  A  portion  of  the  collected  gas  in  the  quench  tank  is 
passed  through  a  drier  and  filter  and  stored  in  a  Tedler  bag 
for  gas  analysis.  A  Barber  Colman  gas  chromatograph  (GC)  is 
used  to  measure  O^M^CH^  ,C0  and  CO,,.  Mon-dispersive  in¬ 
frared  (NDIR)  analysis  is  also  used  to  measure  CO^.  The 
remainder  of  the  gas  is  passed  through  a  chemiluminescent 
analyzer  (CLA)  for  MO  and  MO^  analysis. 


4 . 3  The  Test  Cases 

Table  4-2  describes  the  five  test  cases.  Safety  considerations 
limited  the  engine  speed  to  1000  RPM  and  the  engine  load  to  an  overall 
equivalence  ratio  of  0.5.  Runs  using  an  eight-hole  injector  were  made 
at  two  swirl  ratios,  zero  and  ten  percent  EGR ,  and  two  injection  tim¬ 
ings. 

Each  MO  versus  crank  angle  history  represents  a  series  of  cylinder 
dumps  at  constant  engine  conditions.  The  effect  of  cycle- to-cycle  vari 
ations  was  analyzed  by  multiple  dumps  at  a  single  crank  angle.  For  MO 
levels  below  1000  ppm  the  variation  was  less  than  10  percent.  For  NO 
levels  above  '000  ppm  it  was  less  than  2  percent. 

Oomplete  test  data  and  pressure  traces  are  listed  in  Appendix  G. 
Mote  that  M0  mass  fractions  must  be  multiplied  by  a  correction  factor  t 


account  for  nelium  dilution. 


CHAPTER  FIVE 

MODEL  EVALUATION  AND  SENSITIVITY 

5 . 1  Sensitivity  to  Simulation  Parameters 

The  first  step  in  evaluating  the  Stochastic  Mixing  Model  approach 
is  to  consider  its  internal  consistency:  its  sensitivity  to  important 
model  and  physical  parameters  and  the  variance  in  results  for  different 
stochastic  nuns  with  all  other  parameters  held  constant.  To  accomplish 
this  we  analyzed  the  effect  of  varying  the  total  number  of  elements,  the 
mixing  intensity  scaling  factor,  and  the  number  and  definition  of  the 
zones  on  the  results  and  on  element  distributions. 

5.1.1  Number  of  Elements 

The  total  number  of  elements  used  in  the  3MM  is  a  critical  model 
parameter.  The  number  of  elements  is  determined  by  the  individual  ele¬ 
ment  mass  (ELMM),  specified  as  a  model  input  parameter,  and  the  total 
mass  of  injected  fuel  and  intake  air  per  cycle,  specified  by  the  engine 
operating  conditions.  A  random  number  generator  is  used  in  many  of  the 
SMM  submodels  to  select  elements  for  mixing  and  exchange  with  other 
zones.  Included  in  the  model  input  parameters  is  a  random  number  seed 
which  determines  the  series  of  random  numbers  selected  for  a  particular 
run.  A  different  random  number  seed  will  result  in  different  element 
selection  and  a  different  solution.  Output  is  averaged  over  a  number  of 
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stochastic  runs  with  different  random  number  seeds.  Figures  5-1  and  5-2 
show  mean  maximum  pressure,  mean  maximum  NO  and  mean  maximum  soot  versus 
the  total  number  of  elements  used  in  the  runs.  Each  data  point 
represents  the  mean  of  ten  stochastic  runs  with  different  random  number 
seeds.  Each  run  uses  10  zones,  a  mixing  Intensity  factor  of  1.1  and  MDM 
data  for  Test  Run  17.  Four  different  element  sizes  were  used  for 
element  totals  of  1  437,  2875,  5750  and  11500  (ELMM=0. 001 2 ,  0.0006, 
0.0003,  and  0.00015  g) .  The  curves  connect  the  four  mean  data  points. 
The  vertical  lines  indicate  the  standard  deviation  and  the  tick  marks 
indicate  the  95  per  cent  confidence  interval  for  the  mean  value.  [51] 

Two  important  observations  may  be  made  about  this  data.  First,  the 
standard  deviation  decreases  with  more  elements  and  second  the  mean 
value  changes  with  the  number  of  elements,  approaching  an  asymptotic 
limit  with  more  elements.  Both  of  these  observations  are  as  expected 
and  may  be  attributed  to  the  stabilization  of  the  distribution  of 
element  properties  with  more  elements.  To  achieve  continuous 
distributions  of  properties  within  each  zone  requires  a  sufficient 
number  of  elements.  As  these  distributions  approach  their  limiting 
values  they  become  less  sensitive  to  further  increases  in  the  number  of 
elements  and  to  changes  in  the  random  elements  chosen.  Figure  '5-3  shows 
the  distribution  of  elements  for  these  cases  as  a  function  of  total  fuel 
mass  fraction  and  the  number  of  elements.  These  distributions  converge 
as  the  number  of  elements  is  increased.  Typical  of  all  the 
distributions  examined  is  that  they  start  off  with  a  large  group  of 
elements  that  are  very  rich  and  a  large  group  that  are  very  lean.  These 
two  groups  should  gradually  mix  and  converge  with  increased  crank  angle 
to  a  distribution  centered  on  the  overall  fuel  mass  fraction.  This 
occurs  in  our  results  although  our  distributions  always  have  a 


significant  number  of  very  lean  elements  left  at  the  end.  This  is  due 
to  the  incomplete  mixing  predicted  by  KIVA. 

Computer  run  time  for  the  SMM  varies  directly  with  the  number  of 
elements,  so  for  computational  efficiency  of  a  single  run  it  is  desir¬ 
able  to  have  fewer  elements.  However,  standard  deviation  decreases  with 
the  number  of  elements  and  fewer  runs  are  required  with  more  elements 
for  the  same  computational  accuracy.  A  compromise  number  of  5750  ele¬ 
ments  (ELMM-0.0003  3)  was  selected  for  the  remainder  of  our  runs.  Mean 
results  for  this  number  of  elements  are  within  5  per  cent  of  their 
asymptotic  values  and  the  95  per  cent  confidence  factor  range  for  ten 
runs  is  less  than  plus  or  minus  5  per  cent.  Run  time  from  the  start  of 
injection  to  40°  ATDC  for  one  run  on  a  ’/AX  750  is  approximately  90  mi¬ 
nutes  . 


5.1.2  Mixing  Intensity  Scaling  Factor 

Most  important  among  the  physical  parameters  is  the  mixing  intensi¬ 
ty  scaling  factor  (C3ETA).  As  shown  in  Equation  C.16  mixing  intensity 
may  be  derived  from  basic  principles  to  within  a  linear  scaling  factor. 
This  scaling  factor  must  be  specified  in  the  model  input.  Figure  5-4 
shows  cylinder  pressure,  mass  of  fuel  burned,  NO,  and  soot  versus  crank 
angle  and  C3ETA.  Included  are  plots  of  the  experimental  test  results, 
the  :<IVA  results  and  the  5MM  results.  Each  5MM  curve  represents  the 
mean  of  10  stochastic  runs  with  5750  elements  and  10  zones,  using  MDM 
data  for  Test  Sase  17. 

Initial  burning  and  pressure  rise  in  the  SMM  are  slower  than  the 
KIVA  results.  This  may  be  attributed  to  the  ignition  delay  submodel 
included  in  the  SMM  which  slows  down  this  initial  burning  phase.  KIVA 


does  not  consider  pre-ignition  chemistry  and  its  initial  burning  is  too 
rapid.  For  the  range  of  mixing  intensity  factors  considered,  the  maxi¬ 
mum  pressure  predicted  by  the  SMM  is  reasonably  close  to  the  KIVA  re¬ 
sults.  Increasing  CBETA  results  in  increased  burning  and  higher  pres¬ 
sures.  This  is  consistent  with  increased  mixing.  With  CBETA  fixed, 
trends  in  maximum  pressure  predictions  at  other  engine  operating  condi¬ 
tions  are  also  consistent  with  the  KIVA  and  experimental  data.  The  SMM 
pressure  trace  eventually  converges  with  the  KIVA  and  experimental  re¬ 
sults.  The  discrepancy  in  the  pressure  traces  from  peak  pressure  to 
convergence  is  attributed  to  possible  diaphragm  leakage  in  the  experi¬ 
mental  results  and  to  incomplete  combustion  predicted  by  KIVA,  which  may 
be  seen  in  the  mass-burned  plot.  The  value  of  CBETA  selected  for  com¬ 
parison  to  the  experimental  data  (CBETA=0.9)  was  chosen  to  give  the  best 
matchup  between  SMM  and  KIVA  pressure  traces.  Experimental  results  were 
not  considered  in  determining  CBETA. 

The  shape  and  the  magnitude  of  the  NO  curves  agree  well  with  the 
experimental  results  for  this  test  case.  NO  concentration  increases 
with  CBETA,  pressure  and  mass-burned.  This  is  consistent  with  increased 
mixing  and  earlier  combustion. 

Unlike  NO,  soot  formation  predictions  are  dependent  on  a  calibrat¬ 
ing  constant  (SOOTC).  The  value  used  (SOOTC=0 . 001 )  was  chosen  to  give 
agreement  between  exhaust  soot  predicted  by  the  SMM  (Test  Run  17,  CBETA 
equal  to  0.9)  and  the  experimental  results.  Since  toluene  combustion 
generates  far  more  soot  than  diesel  fuel,  this  constant  is  substantially 
different  from  unity.  The  application  of  the  toluene  shock-tube  correl¬ 
ations  to  the  diesel  environment  is,  however,  highly  speculative.  This 
value  was  held  constant  for  all  subsequent  runs.  In  order  to  use  the 


experimental  results  to  calibrate  the  soot  submodel  it  was  necessary  to 
convert  an  exhaust  Bosch  Number  to  percent  Carbon.  [52]  Soot  calcula¬ 
tions  made  by  the  3MM  are  considered  qualitatively  and  are  not  used  for 
quantitative  evaluation  of  the  model.  The  soot  curves  snow  a  maximum 
near  the  end  of  injection  followed  by  rapid  oxidation.  Increased  mixing 
reduces  the  amount  of  soot  produced  and  increases  the  amount  of  soot 
oxidized.  This  is  consistent  with  our  general  knowledge  about  diesel 
soot  emissions. 

Figure  5-5  shows  the  distribution  of  elements  as  a  function  of 
totai  fuel  mass  fraction  and  mixing  intensity  at  different  crank  angles. 
As  C3ETA  increases,  the  rich  and  lean  peaks  converge  more  rapidly  resul¬ 
ting  in  narrower  and  taller  distributions.  This  is  consistent  with  more 
mixing. 

5 . 2  Sensitivity  to  Zones 

The  number  and  definition  of  stochastic  mixing  zones  used  in  the 
3 MM  is  fundamental  to  the  basic  hypothesis  of  our  approach  and  a  criti¬ 
cal  parameter  in  determining  the  results.  We  assume  that  an  inhomogene¬ 
ous  flow  may  be  broken  down  into  a  discrete  number  of  zones  which  indiv¬ 
idually  may  be  modeled  as  well-mixed  on  a  microscopic  scale.  The  valid¬ 
ity  of  this  hypothesis  is  dependent  on  local  turbulent  length  scales  and 
turbulent  intensities.  "Well-mixed"  implies  that  any  element  within  a 
zone  is  equally  likely  to  mix  with  any  other  element  in  the  same  zone, 
however,  this  is  not  valid  if  the  zone  is  much  larger  than  the  typical 
turbulent  length  scale.  Increasing  the  number  of  zones  and  consequently 
decreasing  their  size  should  improve  the  validity  of  our  hypothesis.  We 
would  expect  that  as  the  number  of  zones  is  increased  and  our  hypothesis 


becomes  valid,  the  results  should  converge  to  a  solution.  Increasing 
the  number  of  zones  would  eventually  become  computationally  unmanageable 
and  other  model  hypothesis,  such  as  having  simply-connected  zones,  would 
begin  to  bre^  ;  down.  Our  concern  was  that  this  might  occur  before  con¬ 
verging  to  a  solution. 

As  discussed  in  Section  2.6,  the  KIVA  output  is  sorted  into  10 
zones.  Any  combination  of  these  ten  zones  may  be  used  in  the  SMM. 

Table  2-2  lists  the  zone  definitions  used  in  our  analysis.  Runs  were 
made  using  5, 7, 8, 9  and  10  zones.  Two  different  8  zone  definitions  were 
used:  one  with  more  division  around  stoichiometric  and  one  with  more 
division  richer  than  stoichiometric.  All  runs  were  made  using  5750 
total  elements,  with  CBETA  equal  to  0.3,  and  using  MDM  data  for  Test 
Case  17. 

Figure  5-6  shows  cylinder  pressure,  fuel-mass  burned,  NO  concentra¬ 
tion  and  soot  versus  crank  angle  and  zone  definition.  Included  are  the 
SMM,  KIVA  and  experimental  results.  The  results  for  5  zones  are  very 
different  from  the  others.  The  fuel-mass  burned  versus  crank  angle  plot 
is  much  slower  and  has  a  different  shape.  Cylinder  pressure  f or  5  zones 
is  ^ess  and  does  not  ultimately  converge  with  the  other  cases.  The 
shape  of  the  soot  profile  is  again  dramatically  different  for  the  5  zone 
case.  With  8  zones  the  curves  begin  to  converge.  Pressure  and  burned 
fuel  plots  are  very  similar  for  8,  9  and  10  zones.  The  NO  and  soot 
curves  are  more  sensitive  to  small  changes  in  temperature  and  converge 
more  slowly,  but  the  difference  for  9  and  10  zones  is  very  small.  Of 
the  two  cases  with  8  zones,  more  subdivision  around  stoichiometric  re¬ 
sults  in  a  distribution  most  similar  to  the  9  zone  case.  This  may  be 
attributed  to  there  being  more  elements  and  greater  temperature  sensi- 


tivity  to  fuel  mass  fraction  in  the  near-stoichiometric  interval. 


The  most  critical  mechanism  by  which  the  zone  definition  effects 
these  results  appears  to  be  through  the  fuel  mass  fraction  distribution. 
Figure  5-7  shows  these  distributions  for  the  various  zone  definitions. 
Increasing  the  number  of  zones  results  in  more  boundaries  across  which 
the  flow  is  specified  and  increasingly  constrains  the  overall  distribu¬ 
tion.  The  larger  zones  in  the  5  and  7  zone  models  tend  to  develop  large 
peaks  in  their  fuel  mass  fraction  distribution  around  zone  means.  This 
effect  is  much  less  evident  with  more  zones  where  the  fuel  is  forced  to 
be  in  the  appropriate  zone  and  fuel  mass  fraction  interval.  The  distri¬ 
butions  with  more  zones  have  more  elements  in  the  stoichiometric  region. 
Thi3  results  in  higher  mean  temperatures,  higher  pressures,  more  MO  and 
less  soot.  The  distributions  converge  rapidly  with  more  than  3  zones. 
This  is  consistent  with  our  mixing  hypothesis.  Ten  zones  are  used  in 
the  runs  for  comparison  to  the  experimental  results. 

5 . 3  Comparison  to  the  MDM  Results 

Sections  5.1  and  5.2  compare  SMM  results  to  global  MDM  results  such 
as  average  cylinder  pressure,  fuel-mass  burned,  NO  and  soot.  The  abil¬ 
ity  of  the  SMM  to  reproduce  individual  zone  processes  as  specified  by 
the  MDM  solution  is  also  important.  Figures  5"8  thru  5- 11  compare  zone 
fuel  mass  fraction  and  zone  fuel-mass  burned  in  the  SMM  and  MDM. 

As  described  in  Section  3.3.4,  SMM  combustion  is  not  constrained  by 
KIVA.  The  ignition  delay  predicted  by  the  SMM  compares  very  well  with 
the  KIVA  ignition  delay,  which  is  specified  by  the  experimental  results 
and  provided  as  input  to  KIVA.  (See  Figs.  5“3  and  5-9)  However,  once 
combustion  is  allowed  to  occur  in  the  KIVA  solution  it  takes  off  much 
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too  rapidly.  The  SMM  combustion  is  constrained  by  the  pre-ignition 
chemistry  criteria  and  proceeds  more  slowly.  This  is  particularly  appa¬ 
rent  in  the  richer  zones  where  lower  temperatures  and  the  rich  combus¬ 
tion  constraint  result  in  much  slower  SMM  combustion  rates.  Except  for 
Zone  1,  the  two  plots  ultimately  converge,  but  quickly  start  to  diverge 
again  as  the  stable  concentration  gradients  predicted  by  the  KIVA  solu¬ 
tion  prematurely  slow  KIVA  combustion  after  +20°  ATDC. 

The  decision  not  to  constrain  SMM  combustion  was  made  because  of 
the  apparent  deficiencies  in  the  KIVA  combustion  solution,  but  the  cost 
of  this  decision  is  seen  in  the  Total  Fuel  Mass  Fraction  plots  (Figs.  5~ 
10  and  5-11).  The  quantity  of  burned  versus  unburned  fuel  in  the  SMM 
solution  was  very  different  from  the  KIVA  solution.  This  caused  pro¬ 
blems  with  the  SMM  flow  algorithm  which  attempts  to  match  the  flow  of 
burned  and  unburned  fuel  to  the  KIVA  solution.  Burned  and  unburned-f uel 
flow  errors  are  less  than  two  percent  of  the  total  fuel  before  +20°,  but 
increase  to  as  much  as  20  percent  of  the  total  fuel  after  +20°.  As  a 
result,  the  zone  fuel-mass  fractions  do  not  precisely  match  KIVA,  par¬ 
ticularly  after  +20°  ATDC.  Ideally,  if  the  KIVA  solution  were  correct, 
the  SMM  combustion  should  be  constrained  to  agree.  Because  of  the  ap¬ 
parent  deficiencies  in  the  KIVA  combustion  solution  we  chose  to  have  the 
best  agreement  occur  early  in  the  cycle  and  around  top  dead  center. 

Most  of  the  critical  NO  chemistry  is  complete  by  20°  ATDC  so  that  evalu¬ 
ation  of  our  two-step  approach  is  still  valid  using  NO  as  a  criteria. 

We  should,  however,  be  cautious  with  any  conclusions  dependent  on  re¬ 
sults  after  20°  ATDC. 
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CHAPTER  SIX 


COMPARISON  TO  EXPERIMENTAL  RESULTS  AND  ANALYSIS 


6.1  Comparison  to  Experimental  Results 

The  next  step  in  evaluating  the  Stochastic  Mixing  Model  approach  is 
the  comparison  of  model  results  to  experimental  results  and  trends. 

This  section  compares  model  predictions  to  the  experimental  test  case 
results  described  in  Section  4.3.  The  experimental  results  include  data 
for  two  injection  timings,  two  swirl  ratios  and  two  levels  of  exhaust 
gas  recirculation  (EGR).  KIVA  and  SMM  runs  were  made  for  each  of  these 
test  cases.  SMM  results  represent  the  mean  of  10  stochastic  runs  with 
identical  engine  operating  conditions,  but  different  random  number 
seeds.  All  the  SMM  runs  use  a  mixing  intensity  factor  (CBETA)  of  0.9 
and  approximately  5750  elements  (ELMM-0.0003  g) .  Table  6-1  summarizes 
the  important  features  of  the  model  and  experimental  results.  Figures 
6-1  through  6-6  are  plots  of  these  results. 

The  pressure  traces  and  fuel-mass  burned  plots  provide  important 
global  comparisons.  Unfortunately,  the  comparison  of  pressure  traces 
was  a  problem  for  two  reasons:  (1)  Initial  KIVA  combustion  was  too  rapid 
and  combustion  during  the  expansion  stroke  was  incomplete.  These  ef¬ 
fects  were  partially  corrected  in  the  SMM  by  not  constraining  the  SMM 
combustion  to  agree  with  KIVA,  but  as  a  result  their  pressure  traces 
represent  different  heat  release  profiles.  (2)  The  experimental  pres- 
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sure  traces  start  out  looking  normal,  but  for  Test  Cases  17,  18,  20  and 
21  they  seem  to. "fizzle  out".  This  discrepancy  was  discussed  in  Section 
2.5.1  and  is  attributed  to  possible  leakage  around  the  dumping  diaphragm 
in  the  test  engine.  The  mixing  intensity  scaling  factor  used  for  subse¬ 
quent  comparison  runs  (CBETA-0.9)  was  selected  to  best  match  the  maximum 
SMM  pressure  to  the  maximum  KIVA  pressure  for  Test  Case  17.  Once  this 
was  done,  the  maximum  SMM  pressure  compared  well  to  the  maximum  KIVA 
pressure  for  each  run.  This  is  an  important  indication  of  model  consis¬ 
tency.  Ignition  delay  and  initial  pressure  rise  predicted  by  the  SMM 
compare  well  with  the  experimental  results.  Towards  the  end  of  the 
cycle  the  incomplete  mixing  of  fuel  and  air  predicted  by  KIVA  leaves 
some  very  rich  zones  with  significant  unburned  fuel.  The  fuel-mass 
burned  results  for  both  KIVA  and  the  SMM  show  only  80-90  percent  burned 
fuel  at  *80°  ATDC .  In  zones  where  the  mean  fuel  mass  fraction  is  within 
combustible  limits  the  SMM  ultimately  mixes  and  burns  more  fuel  than 
KIVA,  but  in  richer  zones  many  elements  never  satisfy  combustible  limits 
and  do  not  burn.  The  SMM  fuel-mass  burned  results  are  consistent  with 
the  experimental  results  in  that  the  two  high  swirl  cases  (18  and  21) 
and  the  early  injection  case  (19)  result  in  more  complete  combustion, 
but  the  SMM  is  not  able  to  burn  all  the  fuel  because  of  the  KIVA  con¬ 
straints. 

MO  results  will  be  discussed  one  test  case  at  a  time,  comparing  the 
results  of  advanced  injection  timing,  increased  swirl  and  increased  EGR 
to  the  basic  test  case,  Test  Case  17.  The  curves  from  all  five  test 
cases  are  plotted  together  in  Figure  6-6.  The  ability  of  the  SMM  to 
predict  MO  is  an  excellent  quantitative  indication  of  its  ability  to 
predict  slow  chemistry.  There  are  no  calibrating  factors  in  the  MO 
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calculation  and  the  bulk  of  the  NO  chemistry  occurs  prior  to  *20°  ATDC 
where  the  SMM  results  are  most  valid. 

NO  results  for  Test  Case  17  are  plotted  in  Figure  5-1.  The  NO 
plot  shows  excellent  agreement  with  the  experimental  data  although  the 
experimental  results  show  a  slight  increase  towards  the  end  of  the  cycle 
while  the  SMM  results  are  nearly  constant.  NO  results  for  Test  Case  18 
are  plotted  in  Figure  6-2.  The  increased  swirl  in  this  case  results  in 
less  fuel  spray  penetration  and  increased  mixing  intensity.  Ultimately 
more  of  the  fuel  is  mixed  and  burned  than  in  Test  Case  17,  but  due  to 
less  penetration,  premixed  combustion  is  less  and  combustion  occurs  in  a 
richer  mixture.  This  results  in  lower  burned-gas  temperatures,  less  NO 
and  more  soot.  The  NO  reduction  from  Test  Case  17  to  Test  Case  18  is 
approximately  40  percent  in  the  SMM  versus  26  percent  in  the  experimen¬ 
tal  results.  NO  results  for  Test  Case  19  are  plotted  in  Figure  6-3. 
Agreement  between  the  SMM  and  the  experimental  NO  results  is  not  as  good 
33  in  the  other  cases.  The  SMM  predicts  only  a  31  percent  increase  in 
NO  between  Case  17  and  Case  19  (10°  injection  advance)  versus  a  90  per¬ 
cent  increase  in  the  experimental  results.  This  90  percent  increase  is 
in  agreement  with  that  predicted  in  other  experiments  with  similar  oper¬ 
ating  conditions.  [52]  The  SMM  NO  trace  does  not  start  up  as  quickly 
and  falls  off  at  +20°  ATDC.  Possible  causes  of  this  disagreement  in¬ 
clude:  (1)  3reakdown  of  the  model  after  +20°  ATDC  (results  are  more 
consistent  before  *20°).  (2)  Inaccuracy  of  the  XIV A  initial  flow  condi¬ 

tions  whic.n  would  have  a  greater  impact  in  the  advanced  injection  case. 
(3)  Inaccuracy  of  KIVA  initial  curning  due  to  the  lack  of  pre-ignition 
chemistry  in  our  application.  NO  results  for  Test  Case  20  are  plotted 
in  Figure  6-4.  Ten  percent  FGR  results  in  higher  gas  heat  capacities 
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and  lower  temperatures .  This  results  in  less  NO  and  more  soot.  Again 
the  SMM  results  agree  reasonably  well  with  the  experimental  results. 

The  SMM  predicts  a  55  percent  reduction  in  NO  between  Test  Case  17  and 
Test  Case  20  versus  a  58  percent  decrease  in  the  experimental  results. 

NO  results  for  Test  Case  21  are  plotted  in  Figure  6-5,  showing  the  com¬ 
bined  effect  of  increasing  swirl  and  EGR.  The  SMM  predicts  a  58  percent 
reduction  in  NO  between  Test  Case  17  and  Test  Case  21  versus  a  66  per¬ 
cent  decrease  in  the  experimental  results. 

Two  limitations  must  be  considered  when  analyzing  the  soot  results: 
(1)  The  expression  for  soot  production,  Equation  3-17,  includes  a  cali¬ 
brating  constant.  The  soot  constant  (SOOTC=0.001 )  used  for  all  the 
comparison  runs  was  selected  to  match  the  soot  loading  at  +80°  ATDC  in 
the  SMM  to  the  experimental  results  for  Test  Case  17.  The  application 
of  the  toluene  shock-tube  correlations  to  the  diesel  environment  is,  as 
stated  before,  highly  speculative.  (2)  Important  soot  chemistry  occurs 
after  +20°  ATDC  where  the  SMM  assumptions  begin  to  break  down.  3ecause 
of  these  limitations  the  quantitative  validity  of  the  soot  results  is 
unclear  and  they  are  only  discussed  qualitatively. 

In  all  cases  (Figs.  6-1  thru  6-5),  the  soot  plot  reaches  a  maximum 
around  the  end  of  injection  and  then  rapidly  oxidizes.  Maximum  soot  is 
approximately  two  orders  of  magnitude  larger  than  the  soot  at  exhaust. 
The  hump  at  *20°  ATDC  is  attributed  to  the  soot  production  rate  (Equa¬ 
tion  3.17)  increasing  as  element  temperatures  approach  1800  K.  Cylinder 
gas  temperatures  are  well  above  1800  K  at  TDC  and  drop  below  1 800  K 
during  expansion,  passing  through  this  maximum  around  *20°  ATDC.  The 
^race-off  between  thi.3  effect,  decreasing  unburned  fuel  and  rapid  soot 
oxidation  is  a  possible  explanation  for  this  hump  occurring  to  a  varying 
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degree  in  each  of  the  test  cases.  Trends  in  the  final  soot  loading  for 


all  test  cases  are  correct,  but  only  Test  Case  19  shows  good  agreement 
in  magnitude  with  the  experimental  results.  Both  the  experimental  and 
SMM  results  indicate  a  25  percent  reduction  in  soot  from  Test  Case  17  to 
Test  Case  19  at  +80°  ATDC .  Better  agreement  for  Test  Case  19  than  for 
the  other  test  cases  is  attributed  to  the  soot  chemistry  being  more 
nearly  complete  for  Cases  17  and  19  by  +20°  ATDC  where  the  SMM  results 
are  most  valid.  Significant  soot  oxidation  is  still  in  progress  after 
+20°  for  the  other  test  cases. 


6.2  Learning  from  the  SMM  Results 

In  addition  to  predicting  global  properties  such  as  pressure,  soot, 
and  NO  the  SMM  can  provide  detailed  information  about  the  reactive  flow 
not  obtainable  from  laboratory  measurements.  Examples  of  this  are  the 
turbulent  distribution  of  fuel  mass  f~action  and  NO  in  the  combustion 
chamber. 

Figures  6-7  through  6-10  are  fuel  mass  fraction  and  mass  weighted 
NO  distributions  as  a  function  of  total  fuel  mass  fraction  broken  down 
by  zones.  The  mass-weighted  NO  distributions  are  calculated  as  follows: 


mass-weighted  NO 


I  [NO] 

M _ _ 

N 


(ppm)  (6.1) 


where: 

[NO]  »  mass  fraction  of  NO  in  element  i 
N  »  total  number  of  elements  in  all  zones 

j  -  all  elements  in  the  ATFMF  increment 

The  total  fuel  mass  fraction  increment  used  is  0.01  .  Refer  to  the  zone 


definitions  in  Table  2-3. 


In  Test  Case  17  at  -5°  ATDC  (Fig.  6-7)  the  individual  zone  distri¬ 
butions  are  not  yet  fully  developed.  The  fuel  is  dispersed  over  all  the 
zones  and  many  of  the  elements  are  very  lean  (4856  of  5644  elements  are 
air  zone  elements).  NO  (Fig.  6-8)  is  most  significant  around  stoichio¬ 
metric  and  in  the  leaner  elements  and  zones.  In  the  .early  injection 
case,  Test  Case  19,  injection  is  complete  and,  although  there  are  still 
many  lean  elements,  all  of  the  zones  have  a  broad  and  significant  TFMF 
distribution  with  a  fairly  flat  zone  total.  The  NO,  produced  primarily 
in  the  stoichiometric  elements,  has  mixed  very  rapidly  into  other  ele¬ 
ments  and  zones.  The  quantity  and  broad  distribution  of  NO  in  even  the 
richest  zones  (1  and  2)  is  surprising. 

By  5°  ATDC  (Fig.  6-9)  the  typical  "two-hump"  TFMF  distribution  has 
developed  in  both  test  cases.  This  shape  is  due  to  the  fuel  vapor, 
which  is  introduced  as  pure  vapor  elements,  gradually  mixing  in  with  air 
elements.  These  two  groups  of  elements,  starting  from  the  right  and 
left  of  the  TFMF  distribution,  gradually  converge.  Case  19  has  proceed¬ 
ed  further  in  converging  than  Case  17  because  of  its  earlier  injection. 
Zone  1  has  nearly  disappeared  by  +5°  in  Case  19  while  it  is  the  dominant 
rich  zone  in  Case  17.  The  NO  (Fig.  6-10)  has  dispersed  even  more  com¬ 
pletely  by  this  time  and  the  mass-weighted  NO  distribution  begins  to 
correspond  closely  with  the  TFMF  distribution  although  there  is  still  a 
definite  peak  around  stoichiometric.  The  concentration  of  NO  is  signi¬ 
ficant  even  in  Zone  1. 

9y  25°  ATDC  the  double  humps  in  the  TFMF  plots  (Fig.  5-13)  have 
nearly  merged.  The  distributions  in  Test  Case  19  continue  to  be  more 
peaked  and  narrow.  The  NO  distribution  in  both  cases  (Fig.  6-14)  con¬ 
forms  closely  to  the  TFMF  distribution  except  for  the  air  zone  elements 


CHAPTER  SEVEN 


SUMMARY ,  CONCLUSIONS  AND  RECOMMENDATIONS 


This  thesis  proposes  and  evaluates  a  Two-Step  Approach  for  calcu¬ 
lating  slow  and  complex  chemistry  in  inhomogeneous  turbulent  reactive 
flows,  specifically  in  a  direct-injection  diesel  engine.  The  first  step 
is  to  complete  a  Multi-Dimensional  Model  (MDM)  solution  of  the  reactive 
flow.  This  is  accomplished  for  a  direct-injection  diesel  using  the  KIVA 
computer  code.  The  output  of  this  solution  is  used  to  define  zones 
within  the  flow,  and  to  calculate  zone  processes  and  mass  flow  between 
zones.  A  Stochastic  Mixing  Model  (SMM)  computer  code  was  developed  to 
recalculate  turbulent  mixing  and  chemistry  using  the  MDM  information. 

The  SMM  generates  distributions  of  turbulent  properties  within  each  zone 
which  are  necessary  to  calculate  the  slow  emissions  chemistry.  This 
approach  is  evaluated  for  consistency  by  analyzing  zone  property  distri¬ 
butions,  the  effect  of  changing  zone  boundaries,  the  effect  of  increas¬ 
ing  the  number  of  zones,  the  sensitivity  to  various  physical  and  model 
parameters,  the  ability  of  the  SMM  to  reproduce  MDM  results  and  the 
variance  of  SMM  results  over  multiple  stochastic  runs.  It  is  evaluated 
for  accuracy  by  comparison  to  experimental  data  and  trends. 

Weaknesses  and  deficiencies  noted  in  the  direct-injection  diesel 
application  of  this  approach  were: 

' .  The  coarse  grid  spacing  used  in  the  KIVA  runs  for  computa¬ 
tional  economy  caused  excess  numerical  diffusion  especially 
during  expansion.  This  damped-out  large  scale  turbulence  and 
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convection  very  early  in  the  expansion  stroke,  limiting  mix¬ 
ing  and  combustion  in  both  the  KIVA  and  SMM  results. 

2.  The  global  combustion  chemistry  used  in  the  KiVA  runs  does 
not  consider  pre-ignition  chemistry.  Initial  combustion  in 
all  the  KIVA  runs  was  too  fast. 

3.  Because  of  these  known  deficiencies  in  KIVA,  the  SMM  was 
not  constrained  to  follow  the  KIVA  heat  release.  Instead  an 
ignition  delay  model  was  included  in  the  SMM  and  elements 
were  burned  as  they  mixed  when  they  satisfied  the  combustion 
criteria.  Consequently  the  balance  of  burned  and  unburned 
fuel  in  the  zones  as  specified  by  KIVA  and  as  calculated  in 
the  SMM  were  not  the  same.  This  made  it  difficult  for  the 
SMM  flow  algorithm  to  satisfy  burned  and  unburned  fuel  flow 
constraints,  particularly  after  +20°  ATDC . 

A.  The  SMM  mixing  algorithm  broke  down  after  +20°  ATDC  when 
.the  KIVA  large-scale  flow  was  damped-out  and  gradients  became 
stable. 

5.  The  axisymetric  grid  used  in  KIVA  for  computational  econo¬ 
my  probably  reduced  the  effect  of  increased  swirl.  Initial 
conditions  were  also  somewhat  simplistic  and  may  have  effect¬ 
ed  results,  particularly  in  the  early  injection  case. 

6.  The  soot  model  used  in  the  SMM  was  developed  for  toluene 
and  requires  calibration  for  application  to  diesel  fuel.  The 
accuracy  of  a  diesel  fuel  application  is  questionable. 

Consistent  and  encouraging  results  noted  in  the  direct-injection 

diesel  application  of  the  stochastic  mixing  model  approach  were: 

1 .  The  standard  deviation  of  pressure,  soot  and  NO  decreases 
with  more  elements  and  the  mean  value  approaches  an  asympto¬ 
tic  limit  with  more  elements.  Total  fuel  mass  fraction  dis¬ 
tributions  also  converge  with  more  elements. 
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2.  Pressure,  soot  and  NO  histories  converge  as  the  number  of 
mixing  zones  is  increased.  Total  fuel  mass  fraction  distri¬ 
butions  also  converge.  Nine  or  ten  zones  were  required  for 
convergence  in  our  application. 

3.  SMM  and  KIVA  pressure  traces  were  consistent  with  differ¬ 
ent  engine  operating  conditions  for  a  fixed  mixing  intensity 
scaling  factor. 

4.  SMM  and  experimental  NO  histories  showed  good  agreement, 
both  in  magnitude  and  in  trend,  as  the  engine  operating  con¬ 
ditions  were  changed.  The  one  exception  was  for  the  early 
injection  case  where  the  SMM  predicted  only  half  the  increase 
in  NO  specified  by  the  experimental  data. 


A*. 

t'' 

i 

$ 

9 


This  Two-Step  Approach  is  an  excellent  example  of  the  unique  poten¬ 
tial  for  the  application  of  multi-dimensional  models.  The  KIVA  code 
provided  detailed  information  about  the  diesel  reactive  flow  that  could 
not  be  obtained  by  any  other  means.  As  MDM  codes  are  exercised  and 
reworked  their  limitations  and  deficiencies  will  be  resolved. 

Recommendations  for  future  effort  using  KIVA  and  the  Stochastic 
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Mixing  Model  approach  are: 

1 .  Individual  KIVA  submodels  should  be  validated  using  exper¬ 
imental  data. 

3.  A  3-D  KIVA  computation  with  more  realistic  initial  condi¬ 
tions  should  be  made  for  comparison  to  simpler  2-D  computa¬ 
tions  . 

3.  Pre-ignition  chemistry  needs  to  be  included  in  the  KIVA 
solution.  Once  the  MDM  combustion  calculation  is  improved, 
combustion  in  the  SMM  should  be  constrained  to  agree. 


4.  A  more  sophisticated  understanding  is  needed  relating  the 
nijimber  of  mixing  zones  and  efficiency  of  the  mixing  model  to 
turbulent  parameters  in  the  KIVA  solution.  Use  of  a  k-e 
turbulence  model  vice  the  subgrid  scale  model  in  the  KIVA 
code  would  facilitate  calculation  of  a  realistic  turbulent 
length  scale  for  this  purpose. 

The  Two-Step  Approach  shows  great  promise  for  calculating  slow  and 
complex  chemistry  in  turbulent  reactive  flows.  Our  direct- inj ection 
diesel  application  of  this  approach  was  remarkably  successful  in  pre¬ 
dicting  NO  histories.  Limitations  in  our  application  were  due  primarily 
to  KIVA  model  limitations  and  inadequacies  and  to  externally-imposed 
economies  on  KIVA  computer  time.  The  Stochastic  Mixing  Model  appears  to 
be  internally  consistent  and  reasonably  economical  in  terms  of  run  time. 
It  should  be  stressed  that  the  submodels  included  in  the  SMM  are  not 
intended  to  be  unique,  but  only  to  represent  one  example  of  how  this 
approach  might  be  applied. 
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ZBETA(NZ)  Zone  NZ  mixing  intensity.  (1/s) 
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Figure  2-38  KIVA  Zone  Mass  of  Fuel  Evaporated  (cont) 
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Figure  2-39  KIVA  Zone  Mass  of  Nitric  Oxide 
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Figure  2-41  KIVA  Zone  Volume 
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A .3  Test  Case  Number  19 


TACOM  DIESEL  RUN  MDM19-40 
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CB4 

0.0 

EB4 

0.0 

ZB4 

0.0 

AM  4 

0  0 

1 

0  0 

0 

0  0  0  2  0 

0 

BM4 

0  0 

0 

0  0 

2 

00000 

2 

AE4 

0.000 

0.000 

0.500 

0.000 

0.000  0.000  0.000 

0.000 

0.000 

1.000 

0.000 

0.000 

BE  4 

0.000 

0.000 

0.000 

0.000 

0.000  1.000  0.000 

0.000 

0.000 

0.000 

0.000 

1.000 

NRE 

6 

AS1 

0.990207 

BS 1 

-51 .7916 

CS1 

0.993074  DS1  -0.343428 

ESI 

0.0111668 
AN  1  0  0 

BN  1  0  0 

AS2  0.431310 
0.0158715 
AN2  0  1 

BN  2  0  0 

AS3  0.794709 
0.0269699 
AN  3  0  0 

BN  3  0  0 

AS4  -0.652939 
ES4  -0.0142865 
AN  4  0  1 

BN  4  0  0 

AS5  1.158882 
0.046347 1 
AN  5  0  1 

BN  5  0  0 

AS6  0.980875 
ES6  -0.0414570 
AN  6  0  1 

BN  6  0  0 


0  0  0 

0  0  2 

-59.6554  CS2 

0  0  0 

0  0  0 

-11 3.2080  CS3 

0  0  0 

0  0  0 

-9.8232  CS4 

0  0  0 

0  0  0 

-76.8472  CS5 

0  2  0 

0  0  0 

68.4453  CS6 


1  0  0  0  0  0 

0  0  0  0  0  0 

3.503350  DS2  -0.340016  ES2 

0  0  0  0  0  0 

0  2  0  0  0  0 

3.168370  DS3  -0.443814  ES3 

0  0  0  0  0  0 

0  0  2  0  0  0 

3.930330  DS4  0.163490 

1  0  0  0  0  0 

0  0  0  2  0  0 

8.532155  DS5  -0.868320  ES5 

0  0  0  0  0  0 

0  0  0  4  0  0 

-10.5938  DS6  0.574260 


ooooooo  ooo 


APPENDIX  B 


! 

SMW  FORTRAN  CODE 


C*** . . . . *«..«**.,*** . . . 

SMM  COMMON  BLOCKS  (SMMCOM.FOR) 

PARAMETER  (N20NES-9 . MAXELE-6000 , NFLOW-9 . NA-1 0) 

DIMENSION  DTMIX(NA) .NELS(NA) . ZTIME(NA) .TTBF(NA) , 

1  TBF(NA) .NNEVAP(NA) .TMEVAP(NA) .NELMIX(NA) 

REAL  LLIMT 
LOGICAL  SOOTON(NA) 

INTEGER  IX. IY 
CHARACTER* 12  FUEL. ID 
CHARACTER*?©  NAME 

COMMON  /  FULAR  /  CATOM.DEL.PSI .PHICON 
COMMON  /FULAR2/  ZH, ID, FUEL.HFG, TSAT.CPF, 

1  HEVAP . WTFUEL . SVFUEL , HFUEL , CTOF 
COMMON  /  ELEM  /  ELMM.NELS.NELAIR.NELTOT 
COMMON  /  CM8LIM  /  PHILOW.PHIHI .LLIMT, ULIMT 
COMMON  /  INTGRS/  IX.MAXITS, ITMAXV.NLINES.NAV.NAVP1 .NCYC.NOLD 
COMMON  /BASIC/  TIME. TIMMDM, CRANK. P. TFI  .RHOL.TWALL, 

1  CBETA . CAD . CRANKD . DTK IN . FERMAX . NPRI NT , ERMAX . VERMAX 
COMMON  /DELT/  DT , DTMIX . DTPR , ZT IME , T IMEPR 
COMMON  /SSOOT/  SOOTON.SOTSIZ.SOOTC.TSOOT 
.  COMMON  /MDM1/  NAME. CA1 INJ .CRKMAX.RPM.PSTART. EGR. SWIRL 
COMMON  /OUT/  TBF , TMEVAP , TTBF 
COMMON  /OUT2/  NNEVAP.DELTAP.NELMIX 


SMZ  COMMON  BLOCKS  (SMZCOM.FOR) 

NOTE:  ALWAYS  APPEARS  AFTER  SMMCOM.FOR 

DIMENSION  FM(NFLOW) , FMV(NFLOW) , FMBF(NFLOW) 

DIMENSION  ZMEVAP(NA) .ZVOL(NA) .ZMVAP(NA) .ZMFBRN(NA) , 

1  ZQWALL(NA) .ZBETA(NA) .ZFMF(NA) .ZMASSL(NA) .ZTEMP(NA) ,ZNO(NA) 
DIMENSION  DFM(NFLOW) .DFMV(NFLOW) .DFMBF(NFLOW) 

DIMENSION  NP(NFLOW) .NN(NFLOW) 

COMMON  /FFLOW/  FM, FMV , FM8F, FML0 
COMMON  /ZFLOW/  ZMEVAP.ZVOL.ZOWALL.ZBETA.ZFVF.ZNO. 

1  ZMASSL , ZMVAP , ZMFBRN , ZTEMP 

COMMON  /DFLOW/  DFM.DFMV.DFMBF 
COMMON  /ELEFLW/  NP.NN 
COMMON  /SMZ  BAS/  PMDM 
COMMON  /ZONES/  ZMA.ZMVA.ZMBFA 
C*****«. *...*•• . . . »»*••• . . . . 

. . * . •*** . * . 


c 

c 

c 


SUBROUTINE  BTEMP 
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C  PURPOSE 

C  GIVEN  P,  H,  AND  FR  OF  BURNED  PRODUCTS.  CALCULATES  T 

C 

C  USAGE 

C  CALL  BTEMP  (TGUESS , FR , ENTHLP , T , N) 

C 

C  DESCRIPTION  OF  PARAMETERS  (ALSO  SEE  SMM) 


c 

r * 

PARAMETER 

INPUT 

OUTPUT 

DESCRIPTION 

C 

P 

YES 

NO 

PRESSURE  (ATM) 

c 

TGUESS 

YES 

NO 

INITIAL  GUESS  FOR  TEMPERATURE  (K) 

c 

FR 

YES 

NO 

FUEL  FRACTION  OF  BURNED  PRODUCTS 

c 

ENTHLP 

YES 

NO 

ENTHALPY  (CAL/G) 

c 

T 

NO 

YES 

CALCULATED  TEMPERATURE  (K) 

c 

ERMAX 

YES 

NO 

RELATIVE  ERROR  TOLERANCE  (SEE 

c 

— 

— 

SUBROUTINES  UTEMP  AND  BTEMP) 

c 

MAXITS 

YES 

NO 

MAXIMUM  NUMBER  OF  ITERATIONS  (SEE 

c 

— 

— 

SUBROUTINES  UTEMP  AND  BTEMP) 

c 

N 

YES 

NO 

ELEMENT  PROPERTY  ARRAY 

C  IDENTIFICATION  NUMBER 

C 

C  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
C  8THRM0 

C 

SUBROUTINE  BTEMP  (TGUESS . FR. ENTHLP. T.N) 

INCLUDE  ’ SLMCOM . FOR  * 

DIMENSION  ELEMT(MAXELE,6) 

COMMON  /ELEMT1/  ELEMT 
T-TGUESS 

•  DO  10  1-1 .MAXITS 
CALL  BTHRMO  (P.T.FR.AHG.CSUBP.WT) 

TTOLD-T 

T-T+ ( ENTHLP- AHG ) / (CSUBP) 

IF(ABS((T— TTOLD)/T) . LE. ERMAX)GOTO  20 
10  CONTINUE 

CALL  OUTPUT (6) 

20  ELEMT ( N , 5 )— CSUBP 
ELEMT(N,6)-WT 
RETURN 
END 


. . . . . . . . . . . 

c 

C  SUBROUTINE  BTHRMO 

C 

C  PURPOSE 

C  CALCULATES  THERMOOYNAMIC  PROPERTIES  OF  BURNED  PRODUCTS 

C 

C  DESCRIPTION  OF  PARAMETERS  (ALSO  SEE  SKW) 


C 

r * 

PARAMETER 

INPUT 

OUTPUT 

DESCRIPTION 

c 

P 

YES 

NO 

PRESSURE  (ATM) 

c 

T 

YES 

NO 

TEMPERATURE  (K) 

c 

FR 

YES 

NO 

FUEL  FRACTION  OF  BURNED  PRODUCTS 

c 

H 

NO 

YES 

ENTHALPY  OF  BURNED  PRODUCTS  (CAL/G) 

c 

CP 

NO 

YES 

HEAT  CAPACITY  AT  CONSTANT  PRESSURE 

c 

— 

— 

— 

OF  BURNED  PRODUCTS  (CAL/G  K) 

c 

WT 

NO 

YES 

MOLECULAR  WEIGHT  OF  BURNED 

PROOUCTS  (G/MOLE) 


SUBROUTINE  BTHRMO  (P.T , FR,H ,CP ,WT) 

C0M40N/TABLE3/BHTBL(2688) ,BCTBL(2688) .BWTBL(2688) ,BHFTBL(2688) 
COMMCN/FULAR/CATOM . DEL , PSI , PHI CON 
DIMENSION  AP(7) ,AT(16) ,APHI (24) 

PARAMETER (RBAR-1 . 9869, PSCALE-. 02421 73) 

DATA  AP  /I . ,5. .10. .20. .30. .60. .100./ 

DATA  AT  /1 700.  ,1800.  ,1900.  ,2000., 21 00.  .2200.  .2300.  .‘2400.  ,2500.  , 

*  2600. ,2700. .2800. .2900. ,3000. .3200. ,3500./ 

DATA  APHI/0. 0,0. 3, 0.4. 0.5, 0.6, 0.7, 0.8, 0.85, 0.9, 0.95,1 .0,1 .05,1 .1 
*1.2,1.35,1.5.1.75,2.0.2.25.2.5.2.75.3.0,3.5,4.0/ 

PHl-FR»PHICON/(1 .-FR) 

PHIA-PHI 

PA-P 

TA-T 

IF(PA.LE.1.0)PA-1. 

IF(PA.GE. 100. )PA-100. 

IF(TA.GE.3500.)TA-3500. 

IF(PHIA.LE.0.0)PHIA-0. 

IF(PHIA.GE.4.0)PHlA-4.0 

IF(TA.GE. 1700. )GO  TO  5 

CALL  UTHRMO  (P ,T, FR . 1 .0 ,H,CP, WT) 

RETURN 

5  I-IFIX(TA/100.)-16 

IF(TA.GE.3200. .AND . TA. LE. 3500. ) 1-15 
-  IF(TA.GE.3000. . AND.TA.LT. 3200. )I-14 
TAI-AT(I) 

TA2— AT( 1+1 ) 

J-6 

IF(PA.GE.60.)GO  TO  10 
J-5 

IF(PA.GE.30.)GO  TO  10 
J— IFIX(PA/10. )+2 
IF(PA.GE. 10. )GO  TO  10 
J-I FIX(PA/5 . )+1 
10  PAI-AP(J) 

PA2— AP( J+1 ) 

K-23 

I F (PH I A. GE. 3. 5) GOTO  20 
K-I FIX( (PHIA— 3 . 0)/ . 5)+22 
IF(PHIA.GE.3. 0 .AND .PHI A . LT . 4 . 0)GOTO  20 
K— IFIX( (PHI A-1 . 5)/. 25)+1 6 
IF(PHIA.GE.1 .5 .AND .PHIA. LE.3 . 0)GOTO  20 
K-I FIX ( (PHI A— 1 .2)/. 15)+14 
IF(PHIA.GE. 1 . 2. AND .PHIA. LE. 1 .5)GOTO  20 
K-1 3 

IF(PHIA.GE. 1 . 1 .AND .PHIA. LE. 1 . 2)GOTO  20 

K-I FIX( (PHI A-. 9)/. 05)+9 

IF(PHIA. GE. 0.9. AND. PHIA. LE. 1 . 1)GOTO  20 

K-IFIX((PHIA-.8)/.5)+7 

IF(PHI A.GE . 0 . 8 .AND .PHI A. LE . 0 . 9)GOTO  20 

K-IFIX((PHIA— .6)/. 1)+5 


IF(PHIA.GE.0.6.AND.PHIA.LE.0.8)GOTO  20 

K-IFIX((PHIA-.3)/.1)+2 

IF(PHIA.GE. 0 .3. AND .PHIA. LE.0. $)GOTO  20 

K-1 

20  PHII-APHl(K) 

PHI2-APHI(K+1) 

IU1-J*384+K*16+I+1 
IU2-J*384+(K-1) *16+1+1 
IU3-J*384+(K-1)*16+I 
IU4-J»384+K*16+I 
IU5-(J-1)*384+K* 16+1+1 
IU6“( J— 1 ) *384+(K— 1 )• 1 6+1+1 
IU7-(J-1)*384+(K-1)»16+I 
IU8-( J-1 ) *384+K* 1 6+1 

R”(— PHI 1+PHI+PHI— PHI2)/(PHI2— PH1 1 ) 

S- (-TA 1 +T+T-TA2 ) / ( TA2-TA 1 ) 

V«(— PA1+P+P— PA2)/(PA2— PA1 ) 


.+R)*(1 

.-R)*(1 

R) • (1 
•+R) • ( 1 
■+R)*(1 

.-R)*(1 

•  R) • ( 1 
•+R)*(1 


.+S)*(1.+V) 
.+S)*(1 ,+V) 
.-S)*(1.+V) 
.-S)*(1.+V) 
•+S)*(1.-V) 

•+s)*(i V) 

.-S)*(1.-V) 

.-S)*(1.-V) 


-  H  •*.  125*  (HI  •8HTBI_(IU1)+H2*BHTBL(IU2)+ 
*H3*BHTBL( IU3)+H4*BHTBL( IU4)+ 
*H5*8HTBL( IU5)+H6*BHTBL( IU6)+ 
*H7*BHTBL( IU7)+H8*BHTBL( IU8)  ) 

CP”. 125* (HI «8CTBL( IU1 )+H2*BCTBL( IU2)+ 
iH3*BCTBL( IU3)+H4*BCT8L( IU4)+ 
kH5*BCTBL( IU5)+H6*BCTBL( IU6)+ 
AH7*BCTBL( IU7)+H8*BCTBL( IU8) ) 

WT”.  1 25*(H1  *BWTBL(  IU1  )+H2*BWTBL( IU2)+ 
*H3*BWT8L( IU3)+H4*BWTBL( IU4)+ 
*H5*BWTBL( IU5)+H6*BWTBL( IU6)+ 
*H7*BWT8L( IU7)+H8*BWTBL( IU8) ) 

RETURN 


C  SUBROUTINE  CM8UST(NZ.N.N2) 

C 

C  PURPOSE 

C  TO  BURN  ELEMENTS  WHICH  MEET  COMBUSTION  CRITERIA  AND  UPDATE 

C  BURNED  ELEMENT  PROPERTIES. 

C 

C  VARIABLES  (SEE  SVW) 

C  N2  USED  WHEN  CALLED  BY  MIXING  TO  INDICATE  BURNING  FOR  TWO  C 

ELEMENTS 

C  N  ELEMENT  PROPERTY  ARRAY  ID  NUMBER 

C 


-  ’  .  -V,  -  V  V  V  V  V  V  *  *  V 


SUBROUTINE  CM8UST(N2,N,N2) 

INCLUDE  'SMMCOM. FOR’ 

INCLUDE  ’ SM2C0M . FOR ’ 

DIMENSION  NUM(NA, MAXELE). TFMF(MAXELE) 

DIMENSION  ELEMT (MAXELE , 6) 

DIMENSION  PREP(MAXELE) 

COMMON  /ELEMT 1/  ELEMT 
COMMON  /ELEMT5/  PREP 
COMMON  /ELEMT6/  NUM.TFMF 
IF(PREP(N) . LT. 1 . )GO  TO  100 

IF((TFMF(N) . LT. LLIMT) .OR. (TFMF(N) .GT.ULIMT) )  GO  TO  100 
IF(ELEMT(N.3).GE.1 .)GO  TO  100 
C 

BGFR-ELEMT(N,3) 

ELEMT(N.3)-1 . 

ELEMT(N,1)«TFMF(N) 

CALL  BTEMP(2100. ,TFMF(N) , ELEMT (N, 4) ,ELEMT(N,2) ,N) 

IF(N2.GT.0)THEN 

TBF(N2)-TBF(N2)+2.«ELMM.(1 BGFR) 

ELSE 

TBF(N2)-T8F(N2)+ELMM»(1 .-BGFR) 

END  IF 
C 

100  RETURN 
END 

. . . . . . . . . . . . . 

. . . . . . . . . . 

c 

C  SUBROUTINE  DISTRIB 

c 

C  PURPOSE 

C  CALCULATES  DISTRIBUTION  OF  NUMBER  OF  ELEMENTS,  TEMPERATURE,  SOOT  AND 
C  NO  AS  A  FUNCTION  OF  TFMF.  READS  DISTRIBUTIONS  FROM  PREVIOUS  RUNS 

C  AND  CALCULATES  CUMMULATIVE  DISTRIBTION.  TFMF  RANGE  0.-.3  IS  DIVIDED 

C  INTO  30  INCREMENTS. 

C 

C  VARIABLES  AND  ARRAYS  (ALSO  SEE  SMM) 

C 

C  ND  -  DISTRIBUTION  ID  NUMBER 

C  NOLD  -  NUMBER  OF  RUNS  INCLUDED  IN  OLD  CUMMULATIVE  DISTRIBUTION 

C  NNEW  -  NUMBER  OF  RUNS  IN  NEW  CUMMULATIVE  DISTRIBUTION 

C  NELET  -  TOTAL  NUMBER  OF  ELEMENTS  IN  ALL  20NES ,  ACTIVE  AND  INACTIVE 

C  N2ACT  -  NUMBER  OF  20NES  WITH  AT  LEAST  ONE  ELEMENT 

C  NAIR  -  NUMBER  OF  AIR  20NE  ELEMENTS,  ACTIVE  AND  INACTIVE 
C 

SUBROUTINE  DISTRIB 
INCLUDE  ’ SMMCOM . FOR ’ 

INCLUDE  ’ SM2C0M . FOR  * 

DIMENSION  ELEMT (MAXELE. 6) ,ELMT (MAXELE. A) 

DIMENSION  NUM(NA, MAXELE) . TFMF(MAXELE) 

COMMON  /ELEMT1/  ELEMT 
COMMON  /ELEMT2/  ELMT 
COMMON  /ELEMT6/  NUM.TFMF 
I F(NOLD .GT . 0) READ (26 , • )NOLD 
NNEW-NOLD+1 
WRITE(25,900)NNEW 

I F(NOLD.GT.0)READ(26,.)N2ACT, NELET, NAIR 
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I 
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1 

§ 

I 

% 

I 
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I 

I 

!s 
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r* 
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NZACT-0 

NELET-0 

DO  100  NZ-1.NZONES 

IF(NELS(NZ) .GT.0)NZACT-NZACT+1 
NELET«NELET+NELS(NZ) 

100  CONTINUE 

NELET-NELET+NELAIR 

NZACT-NZACT+1 

WRITE(25, •)NZACT,NELET,NELAIR 
DO  500  NZ-1 ,NA 

IF(NELS(NZ) . LT. 1 .AND .NZ.NE.NA)  GO  TO  500 
I F(NCLD . GT . 0 ) READ ( 26 , • ) NZOLD , CRANKO 

900  FORMAT(1X, 13) 

WRITE(25, 901 )NZ. CRANK 

901  FORMAT (1X.I2.2X.F6.2) 

C 

C  SORT  ELEMENTS  INTO  TFVF  INCREMENTS 
C 

DO  400  J-1 .30 
FMFU-J*.01 
FMFL“(J— 1 )« .01 
FMFT-0. 

TT-0. 

TNO-0. 

TSOOT-0. 

XN-0. 

C 

C  CALCULATE  AVERAGE  TEMP. NO. SOOT  IN  EACH  INCREMENT 
C 

IF(NZ. EQ.NA.ANO.NELS(NA) ,LT.1)GO  TO  310 
DO  300  L-I.NELS(NZ) 

I-NUM(NZ.L) 

IF(TFMF(I) .LT.FMFL.OR.TFMF(I) .GE.FMFU)GO  TO  300 
XN-XN+1 . 

FMFT-FMFT+TFMF ( I ) 

TT—TT+ELEMT (1,2) 

TNO-TNO+ELMT (1.1) 

TSOOT-TSOOT+ELMT ( I . 3) 

300  CONTINUE 

IF(XN. LE.0. )GO  TO  310 
TT-TT/XN 

TNO-TNO»1 . 0E+06/XN 

I F( FMFT . LE . 0 . )GO  TO  310 

TSOOT-TSOOT«100./(FMFT.ELfcW*CTOF) 

310  FMFA-(FMFL+FMFU)/2. 

IF(NZ. EQ.NA. AND . J . EQ. 1 )THEN 
XN1-XN 

XN-NELAIR-NELS(NA)+XN1 

IF(XN.GT.0.)THEN 

TT-(TT.XN1+ZTEMP(NA)»(NELAIR-NELS(NA)))/XN 

TN0-TNO»XN1/XN 

ELSE 

Xh*0. 

END  IF 
XN1-0. 

END  IF 
XNSOXN»»2 


I 


o  o  o  o  o 


READ  OLD  CUV4AJLATIVE  DISTRIBUTION  AND  CALCULATE  NEW 

IF(NOLD.GT.0)READ(26.«)FMFA,XN1 .XNSQ1 , STDEV.TT1 ,TN01 .TSOOT1 
IF(XN1 .GT.0. )THEN 

TT-(TT»XN+TT1 *N0LD«XN1 )/(XN+NOLD*XN1 ) 

TNO-(TNO»XN+TN01 »NOLD»XN1 )/(XN+NOLD»XN1 ) 
TSOOT-(TSOOT*XN+TSOOT1 «NOLD*XN1 )/(XN+NOLD*XN1 ) 
XN-(XN+NOLD»XN1 )/NNEW 
XNSO“(XNSQ+NOLD*XNSQ1 )/NNEW 
END  IF 

STD  EV-SQR  T ( ABS ( XNSO-XN • • 2 ) ) 

WRITE  NEW  CUMULATIVE  DISTRIBUTION 

WRITE(25,311)FMFA,XN,XNSQ,STDEV,TT.TNO,TSOOT 
311  FORMAT(1X,F6.4.3X,F6.1 .3X.G10.4.3X.G10.4.3X.F6.1 .3X.G10.4, 

1  3X.G10.4) 

400  CONTINUE 
500  CONTINUE 
RETURN 
END 


SUBROUTINE  EVAP(NZ) 


PURPOSE 


USAGE 


TO  CREATE  FUEL  VAPOR  ELEMENTS  GENERATED  BY  EVAPORATION  IN 
EACH  ZONE.  MIX  THEM  WITH  A  RANDOM  ELEMENT  IN  THE  ZONE 
AND  CALCULATE  THE  PROPERTIES  OF  THE  MIXED  ELEMENTS. 


CALL  EVAP(NZ).  ALL  DATA  PASSED  THROUGH  COMMON. 


VARIABLES 

(SEE  SM) 

ARRAYS 

(SEE  SMI) 

SUBROUTINE  EVAP(NZ) 

INCLUDE  'SMCOM.  FOR’ 

INCLUDE  ' SMZCOM . FOR ’ 

DIMENSION  ELEMT(MAXELE,6) . ELMT(MAXELE , 4) , SVOLD(MAXELE) 
DIMENSION  PREP (MAXELE) .NEXT (MAXELE) 

DIMENSION  NUM(NA. MAXELE) . TFMF(MAXELE) 

COMON  /ELEMT1/  ELEMT 

COMON  /ELEMT2/  ELMT 

COMON  /ELEMT 4/  SVOLD 

COMMON  /ELEMT5/  PREP 

COMON  /ELEMT6/  NUM.TFMF 

PARAMETER (RBAR-1 . 9869 .CCAL- . 02421725) 

NEVAP- 1 F I X ( ZMEVAP ( NZ )/ELMM ) 

I F(NZ . EQ . NA)THEN 

IF(NEVAP.GT.NELAIR)NEVAP-NELAIR 

ELSE 

I F ( NEVAP . GT . N E LS ( NZ ) ) N EVAP-N E LL ( NZ ) 

END  IF 


v  V.  --  -i 
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I F (NEVAP . EQ . 0)RETURN 
ZMVAP(NZ)-ZMEVAP(NZ)-NEVAP»ELMM 
DO  100  L-1 .NEVAP 
NELTOT-NELTOT+1 
NELS(NZ)-NELS(NZ)+1 
NUM(NZ,NELS(NZ))-NUM(NA,NELTOT) 

I— NUM(NZ , NELS(NZ) ) 

IF(NZ. EQ.NA)THEN 

ENELS— FLOAT(NELAIR)— .01 
NELAIR-NELAIR+1 
ELSE 

ENELS-FLOAT(NELS(NZ)-1)-.01 
END  IF 

40  CALL  RANDOM( IX, IY.YFL) 

IX-IY 

L2«IFIX(1 . 0+YFL»ENELS) 

I F ( NZ . EQ . NA . AND . L2 . EQ . NELS (NZ ) ) GO  TO  40 
I F (NZ . EQ . NA. AND . L2 . GT . NELS (NZ) ) THEN 
NELS(NA)-NELS(NA)+1 
NELTOT-NELTOT+1 

NUM ( NA , NELS ( NA) ) -NUM ( NA , NELTOT ) 

J-NUM(NA.NELS(NA)) 

ELEMT(J . 1 )— ZM8FA/(ZMA-ZMVA) 

ELEMT(J .2)— ZTEMP(NA) 

ELEMT(J ,3)— (ZMA— ZMVA)/ZMA 
IF(ELEMT(J ,3) . LT. 1 . )THEN 

CALL  UTHRMO(P , ELEMT  (J . 2) , ELEMT( J , 1 ) , ELEMT( J ,3) . 
1  ELEMT(  J  .  4)  ,  ELEX4T(  J  ,5)  .  ELEMT(  J  ,  6)  ) 

ELSE 

CALL  BTHRMO(P, ELEMT( J .2) , ELEMT( J , 1 ) , ELEMT( J , 4) , 
1  ELEMT( J ,5) , ELEMT( J . 6) ) 

END  IF 
ELMT(J , 1 )-0. 

ELMT( J , 2)— 0 . 

ELMT(J ,3)— 0. 

ELMT( J , 4)— TIME 
PREP(J)-0. 

SVOLD( J )— RBAR»ELEMT( J , 2)/(ELEMT( J , S)»CCAL»P) 

ELSE 

J— NUM(NZ . L2) 

CALL  PROP(TIME.NZ, J) 

END  IF 

ELEMT (1,1 )-ELEMT( J , 1 ) 

ELEX4T(1 ,3)-ELEMT(J  ,3)/2. 

ELEMT ( I , 4)«( ELEMT (J , 4)+HFUEL+HEVAP)/2 . 
TGUESS-(TSAT+ELEMT( J . 2) )/2 . 

CALL  UTEMP(TGUESS, ELEMT (1,1), ELEMT (1,3), ELEMT (1,4) , 
1  ELEMT ( I , 2) , I ) 

ELMT (1,1 )-ELMT( J , 1 )/2 . 

ELMT ( I , 2)-ELMT( J , 2)/2 . 

ELMT ( I , 3)-ELMT( J , 3)/2 . 

PREP( I )-PREP( J)/2. 

CALL  PREPUP(DTMIX(NZ)/2. , I) 

TFMF( I )-1 .-ELEMT (I ,3)»(1 . -ELEMT ( 1.1)) 

DO  50  K-1  .6 

ELEMT (J ,K)-ELEMT ( I ,K) 

50  CONTINUE 

DO  60  K-1 .4 


o  o 


-204- 


ELMT(J,K)-ELMT(I,K) 

60  CONTINUE 

PREP(J)-PREP(I) 

SVOLD(I)-SVrUEL 

TFMF(J)«TFMF(I) 

100  CONTINUE 
RETURN 
END 

. . . . . . . . . . 

. . * . . . . 

c 

C  SUBROUTINE  FLOW 
C 

C  PURPOSE 
C 

C  GIVEN  INPUT  FROM  SMZ ,  TRANSFERS  MASS  ELEMENTS  BETWEEN 

C  ZONES.  CALCULATES  DIFFERENCE  FROM  SPECIFIED  MASS 

C  FLOW  FOR  INCLUSION  IN  NEXT  TIMESTEP.  CALLS  BOUNDARY 

C  MIXING  ROUTINES 

C 

SUBROUTINE  FLOW 
INCLUDE  'SMMCOM. FOR ‘ 

INCLUDE  ' SMZCOM. FOR 1 

DIMENSION  FLM(NFLOW) , FLMV(NFLOW) , FLMBF(NFLOW) . 

1  ELEMT (MAXELE, 6) , ELMT (MAXELE, 4) .SVOLD (MAXELE) , 

2  PREP(MAXELE) 

DIMENSION  NUM(NA, MAXELE). TFMF(MAXELE) 

DIMENSION  NEXT1 (MAXELE) . NEXT2 (MAXELE) .NEXT3 (MAXELE) 

DIMENSION  NEXT4(MAXELE) . NEXT5 (MAXELE) .NEXTS (MAXELE) 

COMMON  /ELEMT1/  ELEMT 

COLfctON  /ELEMT 2/  ELMT 

COMMON  /ELEMT 4/  SVOLD 

COMMON  /ELEMT5/  PREP 

COMMON  /ELEMT 6/  NUM.TFMF 

COMMON  /SORT/  NEL1 .NEL2.NEL3.NEXT1 .NEXT2.NEXT3 
COMMON  /SORTX/  NEL4.NEL5.NEL6.NEXT4.NEXT5.NEXT6 
PARAMETER  (CCAL-. 02421 725 . RBAR-1 .9869) 

C 

DO  850  NF-1.NFLOW 
C 

INITIALIZE  VARIABLES 

50  FLM(NF)-0. 

FLMV(NF)-0. 

FLMBF(NF)-0. 

NFP1-NF+1 

IF(NF.EQ.NFLOW)  GO  TO  600 

IF  (NP(NF) .LE.0.OR.NELS(NF) . LE.0)  GO  TO  200 
55  IF  (NP(NF) .GE.NELS(NF))  THEN 
C 

C  MOVE  ALL  ELEMENTS  IN  NF  TO  NFP1 
C 

NP(NF)-NELS(NF) 

DO  130  K1-1 . NELS(NF) 

K2-NELS(NFP1)+K1 
N1-NUM(NF.K1 ) 

NUM(NFP1 .K2)-N1 
C 
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C  UPDATE  FLOWS 
C 

95  FLM(NF)-FLM(NF)+ELKM 

FLMV(NF)-FLMV(NF)+(1 .-ELEMT(N1 ,3))*EUAI 
FLMBF(NF)«FLM8F(NF)+ELEMT(N1 ,1)»ELEMT(N1 ,3).ELLM 
100  CONTINUE 

NELS(NFP1 )-NELS(NFP1 )+NELS(NF) 

NELS(NF)-0 

ELSE 

C 

C  MOVE  NP  ELEMENTS  FROM  NF  TO  NFP1 .  DETERMINE  TYPE  OF  ELEMENT 
C  NEEDED  AND  SELECT  RANDOM  ELEMENT  FROM  FUEL  VAPOR  RICH 
C  GROUP.  BURNED  FUEL  RICH  GROUP,  OR  LEAN  GROUP. 

C 

CALL  SORTI(NF) 

DO  160  J-I.NP(NF) 

K2«NELS(NFP1)+J 

C 

C  NEED  FUEL  VAPOR  RICH  ELEMENT 
C 

I F( (FMV(NF)— FLMV(NF) ) . GT . FERMAX . AND . ( FMV(NF)-FLMV(NF) ) 

1  .GT. (FMBF(NF)-FLMBF(NF)) .AND.NEL1 .GT.0)THEN 
ENELS-FLOAT(NEL1 )-.01 
CALL  RANDOM(IX.IY.YFL) 

IX-IY 

J1-IFIX(1 .0+YFL*ENELS) 

KI-NEXTI(JI) 

NI-NUM(NF.KI) 

NUM(NFP1 ,K2)«N1 
C 

C  FILL  SLOTS  IN  NF  AND  NEXT1 
C 

NEXT1 ( J 1 )— NEXT1 (NEL1 ) 

NEL1-NEL1-1 

IF(K1 . EQ.NELS(NF) )GO  TO  152 
NUM(NF.K1)-NUM(NF,NELS(NF)) 

IF(NEL1 .GT.0)THEN 
DO  151  L-1.NEL1 

IF(NEXT1(L).EQ.NELS(NF))NEXT1(L)-K1 

151  CONTINUE 
END  IF 

152  NELS(NF)-NELS(NF)-1 
C 

C  NEED  BURNED  FUEL  RICH  ELEMENT 
C 

ELSE  IF((FMBF(NF)-FLMBF(NF)) .GT. FERMAX. AND. NEL2.GT.0)THEN 
ENELS-FLOAT(NEL2)-.01 
CALL  RANDOM ( IX, IY.YFL) 

IX-IY 

J1-IFIX(1 .0+YFL»ENELS) 

K1— NEXT2( J 1 ) 

NI-NUM(NF.KI) 

NUM(NFP1 ,K2)-N1 
C 

C  FILL  SLOT  IN  NF  AND  NEXT2 
C 

NEXT2(J1 )-NEXT2(NEL2) 

NEL2-NEL2-1 


IF(K1 . EQ .NELS(NF) )G0  TO  154 
NUM(NF,K1)«NUM(NF,NELS(NF)) 

IF(NEL2.GT.0)THEN 
DO  153  L-1.NEL2 

IF(NEXT2(L) . EQ.NELS(NF) )NEXT2(L)«K1 

153  CONTINUE 
END  IF 

154  NELS(NF)-NELS(NF)-1 
C 

C  NEED  LEAN  ELEMENT 
C 

ELSE  I F ( NEL3 . GT . 0) THEN 
ENELS-FLOAT(NEL3)-.01 
CALL  RANDOM(IX.IY.YFL) 

IX-IY 

J1-IFIX(1.0+YFL«ENELS) 

K1-NEXT3(J1) 

Nl-NUM(NF.KI) 

NUM(NFP1.K2)-N1 

C 

C  FILL  SLOT  IN  NF  AND  NEXT3 
C 

NEXT3(J1 )«NEXT3(NEL3) 

NEL3-NEL3-1 

IF(K1.EQ.NELS(NF))GO  TO  156 
NUM(NF.K1)-NUM(NF.NELS(NF)) 

IF(NEL3.GT.0)THEN 
DO  155  L-1.NEL3 

IF(NEXT3(L) • EQ.NELS(NF))NEXT3(L)-K1 

155  .  CONTINUE 

END  IF 

156  NELS(NF)-NELS(NF)-1 
C 

C  OTHERWISE  ANY  RANDOM  ELEMENT 
C 

ELSE 

ENELS-FLOAT(NELS(NF) )-. 01 
CALL  RANDOM(IX.IY.YFL) 

IX-IY 

K1-IFIX(1.0+YFL*ENELS) 

NI-NUM(NF.KI) 

NUM(NFP1 ,K2)“N1 
NUM(NF.K1)«NUM(NF.NELS(NF)) 

NELS(NF)-NELS(NF)-1 
END  IF 
C 

C  UPDATE  FLOWS 

C 

FLM(NF)-FLM(NF)+ELKM 
FLMV(NF)«FLMV(NF)+( 1 ,-ELEMT(N1 ,3))»ELkW 
FLMBF(NF)-FLM8F(NF)+ELEMT(N1 ,1).ELEMT(N1 ,3)»EUW 
160  CONTINUE 

NELS(NFP1 )-NELS(NFP1 )+NP(NF) 

END  IF 
C 

200  IF(NN(NF) . LE.0.OR.NELS(NFP1 ) . LE.0)GO  TO  790 
IF(NN(NF) .GE.NELS(NFP1 ) )  THEN 
C 


o  o 


I 


MOVE  ALL  ELEMENTS  FROM  NFP1  TO  NF 

NN(NF)«NELS(NFP1) 

DO  300  K2-1.NELS(NFP1) 

K1-NELS(NF)+K2 
N2-NUM(NFP1 ,K2) 

NUM(NF,K1)«N2 

245  FLM(NF)-FLM(NF)-ELMM 

FLMV(NF)-FLMV(NF)-(1 .-ELEMT(N2,3))»EUM 
FLM8F(NF)-FLM8F(NF)-ELEMT(N2, 1 ) *ELEMT(N2,3) *ELMM 

300  CONTINUE 
NELS(NF)-NELS(NF)+NELS(NFP1 ) 

NELS(NFP1)-0 

ELSE 

C 

C  MOVE  NN  ELEMENTS  FROM  ZONE  NF+1  TO  ZONE  NF.  DETERMINE  TYPE  OF 
C  ELEMENT  NEEDED  AND  SELECT  RANDOM  ELEMENT  FROM  FUEL  VAPOR  RICH 
C  GROUP,  BURNED  FUEL  RICH  GROUP.  OR  LEAN  GROUP. 

C 

CALL  SORT2(NFP1 ) 

DO  360  J-1 ,NN(NF) 

K1-NELS(NF)+J 

IF( (FMV(NF)— FLMV(NF) ) . LT .-FERMAX . AND . (FMV(NF)-FLMV(NF) ) 

1  . LT. (FMBF(NF)-FLMBF(NF)) .AND.NEL4.GT.0)THEN 

ENELS-FLOAT (NEL4)— . 0 1 
CALL  RANDOM (IX, IY.YFL) 

IX-IY 

J2-IFIX(1 .0+YFL»ENELS) 

K2-NEXT4(J2) 

N2-NUM(NFP1 ,K2) 

NUM(NF,K1)-N2 

NEXT4(J2)-NEXT4(NEL4) 

NEL4-NEL4-1 

IF(K2 . EQ.NELS(NFP1 ) )GO  TO  302 
NUM(NFP1 ,K2)-NUM(NFP1 .NELS(NFPI)) 

IF(NEL4.GT.0)THEN 
00  301  L-1.NEL4 

I F(NEXT4( L) . EQ . NELS (NFP1 ) )NEXT4 ( L)-K2 

301  CONTINUE 
END  IF 

302  NELS(NFP1)«NELS(NFP1)-1 

ELSE  I F( (FM8F(NF)-FLMBF(NF) ) . LT .-FERMAX . AND . NEL5 . GT . 0)THEN 
ENELS-FLOAT(NEL5)-.01 
CALL  RANDOM(IX, IY.YFL) 

IX-IY 

J2— IFIX(1 . 0+YFL»ENELS) 

K2-NEXT5(J2) 

N2— NUM(NFP1 ,K2) 

NUM(NF,K1 )-N2 
NEXT5(J2)-NEXT5(NEL5) 

NEL5-NEL5-1 

I F(K2 . E0.NELS(NFP1 ) )G0  TO  304 
NUM(NFP1 , K2)-NUM(NFP1 .NELS(NFPI)) 

IF(NEL5.GT.0)THEN 
DO  303  L-1.NEL5 

IF(NEXT5(L) . EQ.NELS(NFP1 ) )NEXT5(L)-K2 

303  CONTINUE 
END  IF 
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304  NELS(NFP1)-NELS(NFP1)-1 
ELSE  I F(NEL6 . GT . 0) THEN 

ENELS-FLOAT(NEL6)-.01 
CALL  RANDOM(IX.IY.YFL) 

IX-IY 

J2-IFIX(1 .0+YFL»ENELS) 

K2-NEXT6(J2) 

N2«NUM(NFP1 ,K2) 

NUM(NF,K1)-N2 

NEXT6(J2)-NEXT6(NEL6) 

NEL6-NEL6-1 

IF(K2.EQ.NELS(NFP1))G0  TO  306 
NUM(NFP1 ,K2)«NUM(NFP1 .NELS(NFPI)) 
IF(NEL6.GT.0)THEN 
00  305  L-1.NEL6 

IF(NEXT6(L).EQ.NELS(NFP1))NEXT6(L)=K2 

305  CONTINUE 
END  IF 

306  NELS(NFP1 )-NELS(NFP1 )-1 
ELSE 

ENELS-FL0AT(NELS(NFP1 ))— .01 
CALL  RANDOM(IX.IY.YFL) 

IX-IY 

K2-IFIX(1 .0+YFL*ENELS) 

N2— NUM(NFP1 ,K2) 

NUM(NF.K1 )— N2 

NUM(NFP1 ,K2)— NUM(NFP1 ,NELS(NFP1 ) ) 

NELS(NFP1 )— NELS(NFP1 )-1 
END  IF 

345-  FLM(NF)-FLM(NF)-ELVW 

FLMV(NF)-FLMV(NF)-(1.-ELEMT(N2,3))*ELW4 

FLMBF(NF)-FLMBF(NF)-ELEMT(N2.1)*ELEMT(N2.3)*ELMM 

C 

360  CONTINUE 

NELS(NF)-NELS(NF)+NN(NF) 

END  IF 
GO  TO  790 

600  IF(NP(NF) . LE.0.OR.NELS(NF) . LE.0)  GO  TO  770 
IF(NP(NF) .GE.NELS(NF))  THEN 
C 

C  MOVE  ALL  ELEMENTS  FROM  NF  TO  NA 
C 

NP(NF)-NELS(NF) 

DO  700  K1-1 .NELS(NF) 

NI-NUM(NF.KI) 

NELS(NA)-NELS(NA)+1 

NELAIR-NELAIR+1 

NUM(NA.NELS(NA))-N1 

FLM(NF)-FLM(NF)+ELMM 

FLMV(NF)— FLMV(NF)+(1 .-ELEMT(N1 ,3))«EU*< 
FLM8F(NF)-FLMBF(NF)+ELEMT(N1,1).ELEMT(N1 ,3)*ELMM 
700  CONTINUE 

NELS(NF)-0 

ELSE 

C 

C  MOVE  NP  ELEMENTS  FROM  NF  TO  NA.  DETERMINE  TYPE  OF  ELEMENT 
C  NEEDED  AND  SELECT  RANDOM  ELEMENT  FROM  FUEL  VAPOR  RICH 
C  GROUP.  BURNED  FUEL  RICH  GROUP.  OR  LEAN  GROUP. 


^>v-y>vV'V- 


Rf 


I 

£ 


-•-V.-.V 


CALL  SORTI(NF) 

DO  760  J-1,NP(NF) 

NELS(NA)-NELS(NA)+1 

NELAIR-NELAIR+1 

IF((FMV(NF)-FLMV(NF)) .GT . FERMAX .AND. NEL1 .GT.0)THEN 
ENELS-FLOAT(NEL1 )- . 01 
CALL  RANDOM ( I X.IY.YFL) 

IX-IY 

J1-IFIX(1 . &+YFL»ENELS) 

KI-NEXTI(JI) 

NI-NUM(NF.KI) 

NUM(NA,NELS(NA))-N1 
NEXT1 (J1 )«NEXT1 (NEL1 ) 

NEL1-NEL1-1 

IF(K1 .EQ.NELS(NF))GO  TO  742 
NUM(NF.K1)-NUM(NF,NELS(NF)) 

IF(NEL1 .GT.O)THEN 
DO  741  L-1 ,NEL1 

IF(NEXT1 (L) . EQ.NELS(NF))NEXT1 (L)-K1 
CONTINUE 
END  IF 

NELS(NF)-NELS(NF)-1 

ELSE  IF((FMBF(NF)-FLMBF(NF)).GT. FERMAX. AND. NEL2 .GT . 0)THEN 
ENELS-FLOAT(NEL2)-.01 
CALL  RANDOM(IX,IY.YFL) 

IX-IY 

J1— IFIX(1 .0+YFL*ENELS) 

K1— NEXT2(J1 ) 

NI-NUM(NF.KI) 

NUM(NA.NELS(NA))-N1 
NEXT2(J1 )— NEXT2(NEL2) 

NEL2-NEL2-1 

IF(K1 . EQ.NELS(NF) )GO  TO  744 
NUM(NF.K1)-NUM(NF,NELS(NF)) 

IF(NEL2.GT.0)THEN 
DO  743  L-1 ,NEL2 

IF(NEXT2(L) .EQ.NELS(NF);NEXT2(L)-K1 
CONTINUE 
END  IF 

NELS(NF)-NELS(NF)-1 
ELSE  IF(NEL3.GT.0)THEN 
ENELS-FLOAT(NEL3)-.01 
CALL  RANDOM(IX.IY.YFL) 

IX-IY 

J1-IFIX(1 ,&+YFL«ENELS) 

K1— NEXT3( J 1 ) 

NI-NUM(NF.KI) 

NUM(NA,NELS(NA))-N1 
NEXT3( J 1 )-NEXT3(NEL3) 

NEL3-NEL3-1 

IF(K1 .EQ.NELS(NF))GO  TO  746 
NUM(NF,K1 )-NUM(NF,NELS(NF) ) 

IF(NEL3.GT.0)THEN 
DO  745  L-1.NEL3 

IF(NEXT3( L) . EQ. NELS(NF) )NEXT3( L)-K1 


CONTINUE 
END  IF 
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NELS(NF)-NELS(NF)-1 

ELSE 

ENELS-FLOAT(NELS(NF))-.01 
CALL  RANDOM(IX, IY.YFL) 

IX-IY 

K1-IFIX(1 .0+YFL»ENELS) 

NI-NUM(NF.KI) 

NUM(NA,NELS(NA))«N1 

NUM(NF,K1)-NUM(NF,NELS(NF)) 

NELS(NF)-NELS(NF)-1 
END  IF 

FLM(NF)-FLM(NF)+EU*4 

FLMV(NF)-FLMV(NF)+(1 .-ELEMT(N1 ,3))»ELMM 
FLMBF(NF)-FLM8F(NF)+ELEMT(N1 ,1)»ELEMT(N1 ,3)»ELMM 
CONTINUE 
END  IF 


S i 

K 

781 

782 

C  MOVE  NN  ELEMENTS  FROM  ZONE  NA  TO  ZONE  NA-1 .  DETERMINE  TYPE  OF 
C  ELEMENT  NEEDED  AND  SELECT  RANDOM  ELEMENT  FROM  FUEL  VAPOR  RICH 
C  GROUP.  BURNED  FUEL  RICH  GROUP.  OR  LEAN  GROUP. 

C 

770  IF(NN(NF) . LE. 0.OR. ZMA. LE .0. .OR .NELAIR . EQ. 0)GO  TO  790 
CALL  S0RT2(NA) 

DO  787  J-I.NN(NF) 

K1«NELS(NF)+1 

NELS(NF)-K1 

I F( (FMV(NF)— FLMV(NF) ) . LT .-FERMAX . AND . NEL4 . GT . 0)THEN 
ENELS«FLOAT(NEL4)-.01 
CALL  RANDOM( IX. IY.YFL) 

IX-IY 

J2— IFIX(1 .0+YFL«ENELS) 

K2— NEXT4( J2) 

N2-NUM(NA,K2) 

NEXT4(J2)-NEXT4(NEL4) 

NEL4— NEL4— 1 

IF(K2 . EQ.NELS(NA) )GO  TO  782 
NUM(NA.K2)-NUM(NA.NELS(NA)) 

IF(NEL4.GT.0)THEN 
DO  781  L-1.NEL4 

IF(NEXT4( L) . EQ . NELS(NA) )NEXT4(L)-K2 

781  CONTINUE 
END  IF 

782  NELAIR-NELAIR-1 
NELS(NA)-NELS(NA)-1 

ELSE  I F( ( FM8F(NF)-FLM8F(NF) ) . LT .-FERMAX . AND . NEL5 . GT . 0) THEN 
ENELS-FLOAT(NEL5)~. 01 
CALL  RANDOM( IX. IY.YFL) 

IX-IY 

J2»IFIX(1 .0+YFL«ENELS) 

K2— NEXT5( J2) 

N2-NUM(NA,K2) 

NEXT5(J2)-NEXT5(NEL5) 

NEL5— NEL5— 1 

IF(K2 . EO.NELS(NA) )GO  TO  784 
NUM(NA, K2)-NUM(NA.NELS(NA) ) 

IF(NEL5.GT.0)THEN 
DO  783  L-1.NEL5 

IF(NEXT5(L) . EQ.NELS(NA) )NEXT5(L)-K2 


o  o  o 


783  CONTINUE 
END  IF 

784  NELAIR-NELAIR-1 
NELS(NA)-NELS(NA)-1 

ELSE  1F(NEL6.GT.0)THEN 
ENELS-FIOAT(NEL6)-.01 
CALL  RANDOM(IX, IY.YFL) 

IX-IY 

J2-IFIX(1 .0+YFL*ENELS) 

K2-NEXT6(J2) 

N2-NUM(NA,K2) 

NEXT5(J2)-NEXT6(NEL6) 

NEL6-NEL6-1 

IF(K2. EQ.NELS(NA) )GO  TO  788 
NUM(NA.K2)-NUM(NA,NELS(NA) ) 

IF(NEL6.GT.0)THEN 
DO  785  L-1.NEL6 

IF(NEXT6(L) . EQ.NELS(NA) )NEXT6(L)-K2 

785  CONTINUE 
END  IF 

786  NELAIR-NELAIR-1 
NELS(NA)-NELS(NA)-1 

ELSE  IF(N£LS(NA) .GT.0)THEN 
ENELS-FLOAT(NELS(NA))-.01 
CALL  RANDOM(IX. IY.YFL) 

IX— 1Y 

K2-IFIX(1 .0+YFL.ENELS) 

N2— NUM(NA,K2) 

NUM(NA.K2)-NUM(NA,NELS(NA)) 

NELS(NA)-NELS(NA)-1 

NELAIR-NELAIR-1 

ELSE 

INACTIVE  ELEMENTS  ARE  ASSIGNED  MEAN  AIR  ZONE  PROPERTIES. 

NELTOT-NELTOT+1 

N2-NUM(NA.NELT0T) 

NELAIR-NELAIR-1 

ELEMT(N2 . 1 )-ZMBFA/(ZMA-ZMVA) 

ELEMT (N2 ,2)«ZTEMP(NA) 

E L EMT ( N2 . 3 ) - ( ZMA-ZMV A ) /ZMA 
IF(ELEMT(N2.3).LT.1.)THEN 

CALL  UTHRMO(P, ELEMT(N2, 2) , ELEMT (N2, 1 ) , ELEMT (N2.3) . 
1  ELEMT (N2, 4) ,ELEMT(N2,5) , ELEMT(N2 , 6) ) 

ELSE 

CALL  BTHRMO(P, ELEMT(N2, 2) , ELEMT (N2 , 1 ) , ELEMT (N2 , 4) , 
1  ELEMT(N2,5) . ELEMT(N2 , 6) ) 

END  IF 

ELMT(N2 , 1 )-0 . 

ELMT(N2 , 2)-0 . 

ELMT(N2,3)-0. 

ELMT(N2,4)-TIME 

PREP(N2)-0. 

SVOLD(N2)-RBAR« ELEMT (N2 , 2)/ ( ELEMT (N2 , 6) *CCAL»P) 
TFMF(N2)-1 . -ELEMT (N2 , 3) • ( 1 .-ELEMT(N2 . 1 ) ) 

END  IF 

NUM(NF,K1 )-N2 
FLM(NF)-FLM(NF)-EU*W 
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FLMV(NF)-FLMV(NF)-(1 .-ELEMT(N2.3))»ELMM 
FLM8F(NF)-FLM8F(NF)-ELEMT(N2.1)«ELEMT(N2.3)*EIJ<M 
787  CONTINUE 
C 

C  UPDATE  RESIDUAL  FLOWS 
C 

790  DFM(NF)-FM(NF)-FLM(NF) 

DFMV(NF)«FMV(NF)-FLMV(NF) 

DFM8F(NF)-FMBF(NF)-FLM8F(NF) 

C 

C  CALL  BOUNDARY  MIXING  ROUTINES  IF  REQUIRED 
C 

I F(  (A8S(DFMV(NF)  )  . CT .  FERMAX .  OR .  ABS (DFMBF(NF)  )  . GT .  FERMAX)  .  AND . 
1  NF . NE . NFLOW . AND . NELS (NF) . GT . 1 . AND . NELS(NFP1 ) . GT . 1 ) THEN 
CALL  MIXINGB(NF) 

ELSE  IF((ABS(DFMV(NF)).GT. FERMAX. OR. ABS(DFMBF(NF)).GT. FERMAX) 
1  . AND. NF.EQ. NFLOW. AND. NELS(NF) .GT . 1 .AND. NELAIR.GT.0)THEN 

CALL  MIXINGA 
END  IF 


C 

800  IF(ZVOL(NF) . LE.0. )THEN 
DFM(NF)-0. 
DFW(NF)-0. 
DFMBF(NF)-0. 

END  IF 

850  CONTINUE 
900  RETURN 
END 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  INPUT(N) 

PURPOSE 

CALLED  TO  INPUT  ENGINE  PARAMETERS.  SIMULATION  PARAMETERS, 
FUEL  CHARACTERISTICS.  COMBUSTION  PARAMETERS.  AND  INPUT 
FROM  MULTIDIMENSIONAL  MODEL.  ONLY  INPUT  NOT  USING 
THIS  SUBROUTINE  ARE  TABLES  OF  THERMO  DATA  (TABLE). 

VARIABLES  (ALSO  SEE  SLM) 

CTOF  -  FUEL  CARBON  MASS  PER  UNIT  FUEL  MASS 
CATOM  -  NUMBER  OF  CARBON  ATOMS  IN  FUEL 
DTPR  -  TIMESTEP  FOR  PRINTING  OUTPUT 
CAD  -  CARNK  ANGLE  INCREMENT  FOR  PRINTING 
DISTRIBUTION 

DTK IN  -  MINIMUM  TIMESTEP  FOR  KINETIC  UPDATE 
ELAM  -  MASS  OF  AN  INDIVIDUAL  ELEMENT  (GM) 
ERMAX  -  ERROR  CRITERION  FOR  TEMP  ROUTINES 
FUEL  -  CHARACTER  VARIABLE  -  NAME  OF  FUEL 
ID  -  SIMULATION  ID 
IX. IY  -  RANDOM  NUMBER  SEEDS 
MAXITS  -  MAXIMUM  ITERATIONS  FOR  TEMP  ROUTINES 
NOLD  -  NUMBER  OF  PREVIOUS  STOCHASTIC  RUNS  FOR 
AVERAGING 

N20NES  -  NUMBER  OF  STOCHASTIC  MIXING  ZONES 
TIWMDM  -  MDM  CLOCK  TIME 
PHIHI  -  UPPER  COMBUSTION  LIMIT 
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PHILOW  -  LOWER  COMBUSTION  LIMIT 
PSI  -  N2/02  RATIO  FOR  AIR 
SOOTC  -  SOOT  FORMATION' CONSTANT 
SOTON  -  SOOT  MODEL  ON/OFF 
SOTSIZ  -  INITIAL  SOOT  PARTICLE  RADIUS(cm) 

VERMAX  -  MAXIMUM  ERROR  SUBR  VOL 
WTFUEL  -  FUEL  MOLECULAR  WEIGHT 

ZH  -  NO.  HYDROGEN  ATOMS  IN  FUEL 

SUBROUTINE  INPUT(N) 

INCLUDE  ’SIMOOM.  FOR’ 

INCLUDE  * SMZCOM. FOR ’ 

PARAMETER(CCAL-. 02421 725) 

LOGICAL  SOTON 

NAMELIST/INPUT1/ID.ELMM,DTPR,CAD,DTKIN,TWALL.CRKMAX.CBETA 
1  .NPRINT.NOLD 

NAMELI ST/INPUT2/CATOM . ZH . PS  I . FUEL . TFI . RHOL , HFG . TSAT . 

1  CPF 

NAMELI ST/ INPUT 3/ERMAX . I X , MAX I TS .VERMAX . I TMAXV . FERMAX 
NAMELI ST/I NPUT4/PH I  LOW . PH I H I , SOTON .SOTSIZ, SOOTC . TSOOT 


INPUT  NR  1 :  DEFAULT  RUN  PARAMETERS  (CALLED  FROM  SMM) 

1.  OPERATING  PARAMETERS 

IF(N. EQ.2)GO  TO  200 
IF(N.EQ.3)GO  TO  300 
100  ID  -  •  SMM  171-1  ’ 

ELAM  -  .0003 
DTPR  -  .0001 
CAD-  10. 

DTK IN-2.0  E-05 
TWALL-400 . 

CRKMAX— 40 . 

C8ETA— .9 
NPRINT-3 
NOLD— 0 

READ(10 . INPUT1 ) 

2.  FUEL  CHARACTERISTICS 


CATOM 

ZH 

PSI 

FUEL 

TFI 

RHOL 

HFG 

TSAT 

CPF 


10.8 

18.7 

3.773 

•DIESEL’ 

350. 

.7452 

43.246 

550. 

.46 


READ( 1 0 , INPUT2) 


3.  SIMULATION  CONTROL  PARAMETERS 


mammsssm 


E3I 


*  -V  'A 


ooo  ooo  oo  ooo 


MAX ITS  -  100 
VERMAX  -  0.01 
ITMAXV  -  100 
FERMAX  -  1 . E-4 

READ (10. INPUTS) 

4.  COMBUSTION/SOOT  PARAMETERS 

PHILOW  -  0.3 
PHIHI  -  4.0 
SOTON  -  .TRUE. 

SOTS I 2  -  2.0E-6 
SOOTC  -  .001 
TSOOT  -  600 . 

READ(10, INPUT4) 

DO  150  I-1.NZ0NES 
SOOTON( I ) -SOTON 
150  CONTINUE 
GO  TO  900 

INPUT  NR  2.  READ  INITIAL  MDM  OUTPUT. 

200  READ(1 1,901 )NAME 

READ( 1 1 , 902)CA1 INJ ,RPM 
‘  READ(11 ,.)CA1INJ. SWIRL. EGR 
READ( 1 1 , *)NCYCLE 
READ( 1 1 . «)PSTART 
GO  TO  900 

INPUT  NR  3.  READ  MDM  OUTPUT. 


300  READ(1 1 , 
READ( 1 1 , 
READ( 1 1 , 
READ(1 1 , 
READ(1 1 , 
READ(1 1 . 
READ( 1 1 , 
READ(1 1 , 
READ(1 1 , 
READ( 1 1 , 
READ(1 1 . 
READ( 1 1 . 
READ( 1 1 , 
READ( 1 1 . 


*  )  T I  kAffiM ,  PMDM 

•  ) (FM(K) ,K-1 .NFLOW) 

•) (FMV(K) .K-1 .NFLOW) 
•)FML0, (ZMASSL(K) ,  K-1 .NA) 
•)(FM8F(K).K-1  .NFLOW) 
•)(ZTEMP(K).K-1.NA) 
•)(ZNO(K) .K-1 .NA) 

•) (ZMEVAP(K) .K-1 .NA) 

•) (ZQWALL(K) ,K-1 .NA) 
•)(ZMFBRN(K) ,K-1 .NA) 

•) (ZVOL(K) ,K-1 .NA) 

•) (ZFMF(K) .K-1 ,NA) 
•)(ZBETA(K) .K-1 .NA) 

• )ZMA,ZMVA, ZMBFA 


IF(ZTEMP(NA)  .LE.0.  .OR . ZMA .  LT .  ELAM) THEN 
NELS(NA)-0 
NELAIR-0 
ZMA-0 . 

END  IF 

DO  301  NZ-1 .NZONES 


o  o 


ZBETA(NZ)-CBETA»ZBETA(NZ) 
301  CONTINUE 


900  RETURN 
C 

901  FORMAT (A30) 

902  FORMAT ( 1 X, F6. 1 t2X , F6. 1 ) 
C 

END 


. . * . . 

C  SUBROUTINE  MIXING 
C 

C  PURPOSE 

C 

C  MIXES  TWO  RANDOMLY  CHOSEN  ELEMENTS  TOGETHER.  BURNS  THEM  IF 

C  WITHIN  LIMITS  AND  SEPARATES  THEM.  FORMING  TWO  IDENTICAL 

C  ELEMENTS. 

C 

SUBROUTINE  MIXING(NZ) 

INCLUDE  ’SMMCOM. FOR  * 

INCLUDE  •SMZCOM.FOR1 

DIMENSION  ELEMT(MAXELE,6) ,ELMT(MAXELE,4) 

DIMENSION  PREP(MAXELE) .SVOLD(MAXELE) 

DIMENSION  NUM(NA.MAXELE) .TFMF(MAXELE) 

COMMON  /ELEMT1/  ELEMT 

COMMON  /ELEMT2/  ELMT 

COMMON  /ELEMT 4/  SVOLD 

COMMON  /ELEMT5/  PREP 

COkWON  /ELEMT 6/  NUM.TFMF 

PARAMETER (RBAR-1 . 9869 . CCAL- . 0242 1 725) 

C 

ZTIME(NZ)-ZTIME(NZ)+DTMIX(NZ) 

NELMIX(N2)-NELMIX(N2)+2 

C 

C  TWO  DIFFERENT  ELEMENTS  ARE  CHOSEN  AT  RANDOM,  AND  THEIR 

C  PROPERTIES  ARE  UPDATED. 

C 

FIRST  ELEMENT  IS  SELECTED 

20  CALL  RANDOM( IX.  IY,  YFL) 

IX-IY 

ENELS-FLOAT (NELS(NZ) )— . 01 
L1-IFIX(1 .0  +  YFL*ENELS) 

SECOND  ELEMENT  IS  CHOSEN  WHICH  IS  DIFFERENT 
FROM  THE  FIRST  ONE 

30  CALL  RANDOM (IX,  IY.  YFL) 

IX-IY 

L2-I FIX( 1 . 0  +  YFL»ENELS) 

IF(L1 .E0.L2)  GO  TO  30 

I-NUM(NZ.LI) 

CALL  PROP(ZTIME(NZ) ,NZ. I) 

J-NUM(NZ.L2) 

CALL  PROP(ZTIME(NZ) ,NZ. J) 
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C 

C  DETERMINE  THE  TYPE  OF  MIX 

C 

C  1.  BOTH  BURNED.  GO  TO  90 
C 

IF(ELEMT(I,3).EQ.1..AND.ELEMT(J.3).EQ.1.)GO  TO  90 
C 

C  2.  BOTH  UNBURNED,  GO  TO  50 
C 

IF(ELEMT(I,3).LT.1..AND.ELEMT(J,3).LT.1.)GO  to  50 

c 

C  3.  ONE  BURNED.  ONE  UNBURNED. 

C 

C  WHICH  IS  BURNED?  CALCULATE  A  PREP  TIME. 

C 

IF(ELEMT ( I , 3) . EQ. 1 . )THEN 
IB- 1 
ELSE 
I8—J 
END  IF 

CALL  PREPUP(DTM1X(NZ) , IB) 

C 

40  ELEMT (1,1 )— (ELEMT (1,1 ) *ELEMT (1.3)  +  ELEMT(J.I) 

1  •ELEMT(J,3))/(ELEMT(I,3)  +  ELEMT(J,3)) 

TGUESS— (ELEMT( I ,2)  +  ELEMT( J .2) )/2 . 

ELEMT (I ,3)— (ELEMT (I ,3)  +  ELEMT(J .3) )/2. 

ELEMT ( I , 4)— (ELEMT (1,4)  +  ELEMT(J ,4))/2. 

ELMT (1.1 )— (ELMT (1.1)  +  ELMT( J , 1 ) )/2. 

ELMT(I.2)-(ELMT(l,2)  +  ELMT(J ,2))/2. 

ELMT( I .3)— (ELMT (1.3)  +  ELMT(J,3))/2. 

PREP( I )— (PREP( I )+PREP( J) )/2. 

CALL  UTEMP(TGUESS . ELEMT( I , 1 ) . ELEMT (1.3), ELEMT ( I . 4) , ELEMT ( I . 2) . I ) 
TFMF(I)— 1 .—ELEMT ( I ,3) • ( 1 .—ELEMT (1.1)) 

CALL  CMBUST ( NZ . I , J ) 

GO  TO  119 
C 

C  2.  BOTH  UNBURNED 
C 

50  ELEMT (1.1 )-( ELEMT (1.1 ) ‘ELEMT (1,3)  +  ELEMT (J , 1 ) 

1  • ELEMT (J ,3) )/( ELEMT (1,3)  +  ELEMT(J ,3)) 

TGUESS-(ELEMT(I .2)  +  ELEMT (J .2) )/2 . 

ELEMT ( I ,3)- (ELEMT (1.3)  +  ELEMT( J ,3) )/2 . 

ELEMT ( I , 4)— (ELEMT (1,4)  +  ELEMT( J , 4) )/2 . 

ELMT (1.1 )-(ELMT (1.1)  +  ELMT( J , 1 ) )/2 . 

ELMT ( I , 2)-( ELMT (1,2)  +  ELMT( J . 2) )/2 . 

ELMT ( I ,3)— (ELMT (1,3)  +  ELMT( J ,3) )/2 . 

PREP( I )-(PREP( I )+PREP( J ) )/2 . 

CALL  UTEMP( TGUESS, ELEMT (1,1), ELEMT( I ,3) , ELEMT (1,4), ELEMT (1.2) . I) 
TFMF( I )-1 . -ELEMT ( I , 3) • ( 1 .-ELEMT (1,1)) 

CALL  CM8UST(NZ, I . J) 

GO  TO  119 
C 

C  3.  MIXING  OF  TWO  BURNED  ELEMENTS 
C 

90  ELEMT (1,1 )-( ELEMT (1,1)  +  ELEMT (J . 1 ) )/2 . 

TGUESS- ( ELEMT ( 1,2)  +  ELEMT( J ,2) )/2 . 

ELEMT ( I . 4)- (ELEMT (1,4)  +  ELEMT ( J , 4) )/2 . 

ELMT (1.1 )-( ELMT (1.1)  +  ELMT( J , 1 ) )/2 . 


ELMT ( I , 2)“(£LMT (1,2)  +  ELMT( J , 2) )/2 . 
ELMT(I,3)-(ELMT(I,3)  +  ELMT(J , 3) )/2. 


CALL  BTEMP(TGUESS, ELEMT (1,1), ELEMT(I ,4) . ELEMT( I ,2) . I) 
110  TFMF ( I )-ELEMT (1,1) 

119  DO  120  L-1.6 

ELEMT(J,L)-ELEMT(I,L) 

120  CONTINUE 

DO  130  L-1.3 
ELMT(J.L)-ELMT(I,L) 

130  CONTI  WE 

PREP(J)«PREP(!) 

TFMF(J)-TFMF(I) 

200  RETURN 
END 


SUBROUTINE  MIXINGA 
PURPOSE 

THIS  SUBROUTINE  SIMULATES  MIXING  ACROSS  THE  BOUNDARY 
BETWEEN  ZONES  NFLOW  AND  NA. 

SUBROUTINE  MIXINGA 
INCLUDE  •SVWCOM.FOR1 
INCLUDE  ’ SMZCOM . FOR ' 

DIMENSION  ELEMT(MAXELE.6).ELMT(UAXELE,4).SVOLD(MAXELE) 
DIMENSION  PREP(MAXELE) 

DIMENSION  NUM(NA.MAXELE) . TFMF(MAXELE) 

DIMENSION  NEXT1 (MAXELE) .NEXT2 (MAXELE) ,NEXT3(MAXELE) 
DIMENSION  NEXT4(MAXELE) , NEXT5 (MAXELE) .NEXTS (MAXELE) 

COMMON  /ELEMT1/  ELEMT 
C:*ACN  /ELEMT2/  ELMT 
COMMON  /ELEMT 4/  SVOLD 
COMMON  /ELEMT 5/  PREP 
COMMON  /ELEMT6/  NUM, TFMF 

COAWON  /SORT/  NEL1 .NEL2.NEL3.NEXT1 .NEXT2.NEXT3 
COLWON  /SORTX/  NEL4 , NEL5 , NEL6 , NEXT4, NEXT5 , NEXT6 
PARAMETER (CCAL- . 02421725 , RBAR-1 .9869) 

NF-NFLOW 

NFP1-NA 

CALL  SORTI(NF) 

CALL  S0RT2(NFP1) 

20  NP(NF)-NP(NF)+1 
NN(NF)-NN(NF)+1 

C  RANDOM  ELEMENT  IS  CHOSEN  FROM  ZONE  NFLOW.  DETERMINE  TYPE  OF 
C  ELEMENT  NEEDED  AND  SELECT  RANDOM  ELEMENT  FROM  FUEL  VAPOR 

C  RICH  GROUP.  BURNED  FUEL  RICH  GROUP.  OR  LEAN  GROUP. 

C 

I F(DFMV(NF) . GT . FERMAX .AND . NEL1 .GT.0)THEN 
ENELS1-FLOAT(NEL1)-.01 
CALL  RANDOM(IX. IY.YFL) 

IX-IY 

LX-IFIX(1 .0+YFL»ENELS1 ) 


LI-NEXTI(LX) 

NEXT1 (LX)-NEXTI (NEL1 ) 

NEL1-NEL1-1 

ELSE  IF(DFM8F(NF) .GT . FERMAX . AND .NEL2 .GT . 0)THEN 
ENELS1 “FLOAT (NEL2)— . 01 
CALL  RANDOM(IX.IY.YFL) 

IX-IY 

LX-IFIX(1 . 0+YFL»ENELS1 ) 

L1“NEXT2(LX) 

NEXT2(LX)-NEXT2(NEL2) 

NEL2-NEL2-1 

ELSE  IF(NEL3.GT.0)THEN 
ENELS1-FLOAT(NEL3)-.01 
CALL  RANDOM(IX, IY.YFL) 

IX-IY 

LX— I F I X ( 1 .0+YFL»EN£LS1 ) 

LI— NEXT3(LX) 

NEXT3(LX)-NEXT3(NEL3) 

NEL3-NEL3-1 

ELSE 

GO  TO  200 
END  IF 
I-NUM(NF.LI) 

SECOND  RANDOM  ELEMENT  IS  CHOSEN  FROM  ZONE  NF+1 .  DETERMINE  TYPE 
OF  ELEMENT  NEEDED  AND  SELECT  RANDOM  ELEMENT  FROM  FUEL  VAPOR 
RICH  GROUP.  BURNED  FUEL  RICH  GROUP.  OR  LEAN  GROUF. 

I F ( DFMV ( NF) . LT . -FERMAX . AND . NEL4 . LT . 0 ) THEN 
ENELS2«FLOAT(NEL4)-.01 
CALL  RANDOM(IX.IY.YFL) 

IX-IY 

LX— IFIX(1 ,0+YFL»ENELS2) 

L2— NEXT4(  LX) 

NEXT4(LX)-NEXT4(NEL4) 

NEL4-NEL4-1 
J-NUM(NFP1 ,L2) 

ELSE  IF(DFMBF(NF) .LT. -FERMAX. AND. NEL5.GT.0)THEN 
ENELS2-F LOAT ( N  E  L5 ) - . 0 1 
CALL  RANDOM ( IX, IY. YFL) 

IX-IY 

LX-IFIX(1 ,0+YFL»ENELS2) 

L2-NEXT5(LX) 

NEXT5(LX)-NEXT5(NEL5) 

NEL5-NEL5— 1 
J-NUM(NFP1 ,L2) 

ELSE  IF(NEL6.GT.0)THEN 
ENELS2-FLOAT(NEL6)-.01 
CALL  RANDOM ( IX , I Y . YFL) 

IX-IY 

LX-IFIX(1 . 0+YFL«ENELS2) 

L2-NEXT6( LX) 

NEXT6( LX)-NEXT6(NEL6) 

NEL6-NELS-1 
J-NUM(NFP1 . L2) 

ELSE 


INACTIVE  ELEMENTS  ARE  ASSIGNED  MEAN  AIR  ZONE  PROPERTIES 


o  o  o  o  o  o 


I 

>  • 

« 

I 


s 


r» 
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C  ANO  BECOME  ACTIVE  ELEMENTS. 

IF(NELS(NA).GE.IFIX(ZMA/EDAO)GO  TO  200 
NELS(NA)-NELS(NA)+1 
NELTOT-NELTOT+1 
J-NUM(NA.NELTOT) 

L2— NELS(NA) 

ELEMT (J . 1 )-ZMBFA/(ZMA— ZMVA) 

ELEMT(J,2)-ZTEMP(NA) 

E  L  EMT ( J , 3 ) = ( ZMA-ZMVA ) /ZMA 
IF(ELEMT( J ,3) . LT. 1 . )THEN 

CALL  UTHRMO(P , ELEMT( J . 2) , ELEMT (J , 1 ) , ELEMT (J .3) . 

1  ELEMT (J , 4) , ELEMT (J . 5) , ELEMT (J .6)) 

ELSE 

CALL  BTHRMO(P. ELEMT( J .2) . ELEMT (J , 1 ) , ELEMT( J ,4) , 

1  ELEMT (J ,5) , ELEMT (J , 6) ) 

END  IF 
ELMT(J,1)-0. 

ELMT(J,2)«0. 

ELMT(J,3)«0. 

ELMT(J ,4) “TIME 
PREP(J)-0. 

SVOLD( J )“RBAR* ELEMT (J ,2)/( ELEMT ( J . 6)»P»CCAL) 

TFMF(J)-1 .— ELEMT(J.3)»(1 .-ELEMT( J . 1 ) ) 

END  IF 

CALCULATE  FLOWS 

• 

50  DFMV(NF)«DFMV(NF)-ELMM»(ELEMT(4,3)-ELEMT(I ,3)) 

-  DFM8F(NF)=DFMBF(NF)-ELVW.(ELEMT(I,1)*ELEMT(I,3)- 
1  ELEX4T(  J  .  1  )*  ELEMT  (J  .3)  ) 

EXCHANGE  ELEMENTS  BETWEEN  ZONES 

NUM(NA.L2)»I 
NUM(NF,L1)-J 
C 

IF(ABS(DFMV(NF)).GT.FERMAX.OR.ABS(DFMBF(NF)).GT.FERMAX)THEN 
GO  TO  20 
ELSE 

GO  TO  300 
END  IF 

200  DFMV(NF)-DFMV(NF)-ELMM»(ELEMT(J.3)-ELEMT(I ,3)) 

DFM8F(NF)«0FMBF(NF)-ELMM»(ELEMT(I , 1 )*ELEMT(I ,3)- 
1  ELEMT (J , 1 )• ELEMT (J . 3) ) 

300  RETURN 
END 

. . . . . . . 

. . . . . . . 

C  SUBROUTINE  MIXINGB(NF) 

C 

C  PURPOSE 

C 

C  THIS  SUBROUTINE  SIMULATES  MIXING  ACROSS  THE  BOUNDARY 

C  BETWEEN  TWO  MIXING  ZONES. 

C  IT  EXCHANGES  TWO  RANDOMLY  CHOSEN  ELEMENTS  ACROSS  THE 

C  BOUNDARY . 

C 
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subroutine  MIXINGB(NF) 

INCLUDE  *  SXACOM.FOR* 

INCLUDE  ’ SMZCOM . FOR ’ 

DIMENSION  ELEMT (MAXELE, 6) 

DIMENSION  NUM(NA, MAXELE). TFMF(MAXELE) 

DIMENSION  NEXT'.  (MAXELE)  ,NEXT2(MAXELE)  .NEXT3 (MAXELE) 

DIMENSION-  NEXT4(MAXELE) .NEXT5 (MAXELE) . NEXT6 (MAXELE) 

COMMON  /ELEMT 1/  ELEMT 
COMMON  /ELEMT6/  NUM.TFMF 

COMMON  /SORT/  NEL1 .NEL2.NEL3.NEXT1 .NEXT2.NEXT3 
COMMON  /SORTX/  NEL4.NEL5.NEL6.NEXT4.NEXT5.NEXT6 
NFP1-NF+1 
CALL  SORTI(NF) 

CALL  SORT2(NFP1 ) 

C 

C 

C  TWO  DIFFERENT  ELEMENTS  ARE  CHOSEN  AT  RANDOM.  ONE  FROM 

C  EACH  ZONE. 

C 

C  FIRST  RANDOM  ELEMENT  IS  SELECTED  FROM  ZONE  NF.  DETERMINE  TYPE 

C  OF  ELEMENT  NEEDED  AND  SELECT  RANDOM  ELEMENT  FROM  FUEL  VAPOR 
C  RICH  GROUP.  BURNED  FUEL  RICH  GROUP.  OR  LEAN  GROUP. 

C 

20  NP(NF)-NP(NF)+1 
NN(NF)-NN(NF)+1 

IF(DFMV(NF) .GT.FERMAX.AND.NEL1 .GT.0)THEN 
ENELS1-FLOAT(NEL1)-.01 
CALL  RANDOM( IX, IY.YFL) 

IX-IY 

LX-IFIX(1.0+YFL*ENELS1) 

L1-NEXT1 (LX) 

NEXT1 (LX)— NEXT1 (NEL1 ) 

NEL1-NEL1-1 

ELSE  I F(DFM8F(NF) . GT . FERMAX . AND . NEL2 . GT . 0) THEN 
ENELS1-FLOAT(NEL2)-.01 
CALL  RANDOM(IX.IY.YFL) 

IX-IY 

LX-IFIX(1 ,0+YFL«ENELS1 ) 

L1-NEXT2(LX) 

NEXT2(LX)-NEXT2(NEL2) 

NEL2-NEL2-1 

ELSE  IF(NEL3.GT.0)THEN 
ENELS1-FLOAT(NEL3)-.01 
CALL  RANDOM(IX, IY.YFL) 

IX-IY 

LX-IFIX( 1 . 0+YFL»ENELS1 ) 

L1-NEXT3 ( LX) 

NEXT3(LX)-NEXT3(NEL3) 

NEL3-NEL3-1 

ELSE 

GO  TO  200 
END  IF 
I-NUM(NF.LI) 

C 

C  SECOND  RANDOM  ELEMENT  IS  CHOSEN  FROM  ZONE  NF+1 .  DETERMINE  TYPE 
C  OF  ELEMENT  NEEDED  AND  SELECT  RANDOM  ELEMENT  FROM  FUEL  VAPOR 

C  RICH  GROUP.  BURNED  FUEL  RICH  GROUP.  OR  LEAN  GROUP. 

C 


fcH, 


o  o  o  o  o  o 


IF(DFMV(NF) . LT.-FERMAX. AND. NEL4 . LT.0)THEN 
ENELS2-FLOAT(NEL4)-.01 
CALL  RANDOM(IX, IY.YFL) 

IX-IY 

LX-IFIX(1 .0+YFL*ENELS2) 

L2«NEXT4(LX) 

NEXT4(LX)-NEXT4(NEL4) 

NEL4-NEL4-1 

ELSE  IF(DFMBF(NF). LT.-FERMAX. AND. NEL5. GT . 0)THEN 
ENELS2-FL0AT (NEL5)-. 0 1 
CALL  RANOOM(IX, IY.YFL) 

IX-IY 

LX-IFIX(1 . 0+YFL*ENELS2) 

L2-NEXT5(LX) 

NEXT5(LX)-NEXT5(NEL5) 

NEL5-NEL5-1 

ELSE  IF(NEL6.GT.0)THEN 
ENELS2— FL0AT(NEL6)— .01 
CALL  RANDOM(IX, IY.YFL) 

IX-IY 

LX-IFIX(1 .0+YFL.ENELS2) 

L2— NEXT6(LX) 

NEXT6( LX)-NEXT6 (NEL6 ) 

NEL6-NEL6-1 

ELSE 

GO  TO  200 
END  IF 

J— NUM(NFP1 , L2) 

CALCULATE  FLOWS 

60  DFMV(NF)-OFX4V(NF)-ELK*4»(ELEMT(J,3)-ELEMT(I.3)) 

DFWBF(NF)-DFMBF(NF)-ELXW. (ELEMT( I , 1 )«ELEMT( I . 3)- 
1  ELEMT(J , 1 )»ELEMT(J ,3)) 

EXCHANGE  ELEMENTS  BETWEEN  ZONES 

NUM(NFP1 ,L2)-I 
NUM(NF, LI )-J 
C 

IF(ABS(DFMV(NF)) .GT . FERMAX . OR . ABS(DFMBF(NF) ) . GT . FERMAX)THEN 
GO  TO  20 
ELSE 

GO  TO  300 
END  IF 

200  DFMV(NF)«DFMV(NF)-ELMM*(EIEMT( J ,3)-ELEMT (1,3)) 

DFM8F(NF)«DFM8F(NF)-ELMM»(ELEMT(I ,1)*ELEMT(I ,3)- 
1  ELEMT( J , 1 ) »ELEMT( J . 3) ) 

300  RETURN 
END 

C«  . . . . . . . . . 

. . . . * . . . . 

C  SUBROUTINE  OUTPUT (N) 

C 

C  PURPOSE 

C  HANOLES  ALL  OUTPUT  FOR  PROGRAM  SM 

C 

C  VARIABLES 


C  Y( 1 )  -  AVERAGE  TEMPERATURE  OF  ENSEMBLE 

C  Y(2)  -  AVERAGE  GAS  TEMPERATURE  OF  ENSEMBLE 

C  Y(3)  -  AVERAGE  SPECIFIC  VOLUME 

C  Y(4)  -  AVERAGE  SPECIFIC  VOLUME  OF  GASEOUS  ELEMENTS 

C  Y(5)  -  AVERAGE  FUEL  MASS  FRACTION 

C  Y(6)  —  AVERAGE  FUEL  MASS  FRACTION  OF  GASEOUS  ELEMENTS 

C  Y(7)  -  AVERAGE  FUEL  MASS  FRACTION  OF  BURNED  ELEMENTS 

C  Y(8)  -  AVERAGE  TEMPERATURE  OF  BURNED  ELEMENTS  ' 

C  NOX  -  NO  EMISSIONS  (PPM) 

C  TMOLS  -  TOTAL  NO.  OF  MOLES 

C 
C 
C 

SUBROUTINE  OUTPUT (N) 

INCLUDE  ' SMMCOM . FOR ' 

INCLUDE  ‘SMZCOM. FOR ’ 

DIMENSION  NUM(NA.MAXELE) .TFMF(MAXELE) 

DIMENSION  ELEMT(MAXELE,6) , ELMT(MAXELE, 4) 

DIMENSION  TAV(NA) ,FFUEL(NA) .TBFX(NA) 

DIMENSION  TAVX(NA) .DFMVX(NFLOW) .DFMBFX(NFLOW) , FFUELX(NA) 

COMMON  /ELEMT1/  ELEMT 

COMMON  /ELEMT2/  ELMT 

COMMON  /ELEMT6/  NUM.TFMF 

REAL  NOX.Y(9).YT(9).MGAS.MBURN.MTOT 

PARAMETER(CCAL-. 02421 725 . RBAR-1 . 9869) 

C 

C  OUTPUT  NR  1  -  PRINTOUT  INPUT  DATA 
IF(N.EQ.I)  GO  TO  100 
C 

C  OUTPUT  NR  2  -  INTERMEDIATE  RESULTS 
IF(N. EQ. 2)  GO  TO  200 
C 

C  OUTPUT  NR  5  -  VOLUME  OUT  OF  TOLERANCE 
IF(N. EQ. 5)  GO  TO  500 
C 

C  OUTPUT  NR  6  -  BTEMP  DID  NOT  CONVERGE 
IF(N. EQ. 6)  GO  TO  600 
C 

C  OUTPUT  NR  9  -  UTEMP  DID  NOT  CONVERGE 
IF(N. EQ.9)  GO  TO  650 
C 

C  OUTPUT  NR  8  -  FINAL 

I F ( N . EQ.8)  GO  TO  200 
C 

c.  . . . . * 

c 

c  OUTPUT  NR  1 :  PRINTOUT  INPUT  DATA 
C 

C  SET  UP  TITLE  PAGE 
C 

100  WRITE( 14,908) 

WRITE(14,900) 

DO  110  1-1 .10 
WRITE( 14,901) 

110  CONTINUE 

WRITE( 14,902) 

DO  111  1-1,5 


o  o  o  o  o  o 


WRITE(14,901) 

111  CONTINUE 
WRITE(14,903) 

DO  112  1-1.4 

WRITE(14,901 ) 

112  CONTINUE 
WRITE(14, 9031)10 
DO  1121  1-1.13 

WRITE(14,901) 

1121  CONTINUE 

WRITE(14.904) 

WRITE(14,905) 

WRITE(14,906) 

DO  113  1-1,12 
WRITE(14,901 ) 

113  CONTINUE 
WRITE(14,907) 

SET  UP  INPUT  DATA  PAGE 

IPAGE-1 

WRITE(14,908) 

WRITE(14,909) I PAGE 
WRITE(14, 910)10 

PRINT  OUT  INPUT  DATA  AND  SELECTED  CALCULATIONS 

WRITE(14.912) 

WRITE( 14,913) 

-  WRITE(14.914)NAME 
WRITE(14.915)RPM 
WRITE(14.916)CA1INJ 
WRITE(14.917)CRKMAX 
WRITE(14,918) 

WRITE(14.919)FUEL 
WRITE(14,920)CATOM,DEL 
WRITE(14.921 )PSI 
WRITE(14.922) 

WRITE(14.923)ELVW 
WRITE( 1 4 . 924) VERMAX , ERMAX 
WRITE(14,925)MAXITS, ITMAXV 
WRITE(14,926)IX 
WRITE(14.927)NA 
WRITE(14,928)DTPR 
WRITE (14, 9281 ) DTK IN 
C 

I PAGE- I PAG E+1 
C 

WRITE( 14 , 908) 

WRITE(14,909) I PAGE 
WRITE(14,910)ID 
C 

WRITE(14,929) 

WRITE(14,930)PHIHI .PHILOW 
WRITE(14,931)S0TSIZ 
WRITE( 1 4 , 932)S00T0N(2) 

WRITE( 1 4 , 933)SOOTC 
WRITE( 1 4, 9333)CBETA 


o  o  o 


NUNES-9 
GO  TO  899 


C 

. . . . . . * 

c 

C  OUTPUT  NR  2:  INTERMEDIATE  RESULTS 
C 

C  OUTPUT  CALCULATIONS 
C 

200  TSOOT-0 . 

TNOX-0 . 

TWT-0. 

TMGAS-0 . 

TMTOT-0 . 

TM8URN-0 . 

TTMOLS— 0 . 

TTMEVAP-0. 

TOTBF-0. 

TBFMDfc^0. 

TMASSL-0. 

FFUEL1-0. 

FFUEL2-0. 

DO  205  J-1.9 
YT(J)-0. 

205  CONTINUE 

CALCULATE  OUTPUT  FOR  EACH  ZONE  EXCEPT  NA 

DO  250  NZ-1 , NZONES 
MBURN-0 

MGAS— N ELS (NZ) *E LW+ZMVAP ( NZ ) 

DO  210  J-1 ,9 
Y(J)-0. 

210  CONTINUE 
SOOT-0. 

TMOLS— 0 . 

NOX-0. 

IF (MGAS . LE.0 . .OR .NELS(NZ) . LT . 1 )GO  TO  250 
I F(NL I NES . GE . 9 . AND . NPR I NT . NE . 2 . AND . NPR I NT . NE . 3 )  THEN 
I PAGE- I PAG E+1 
WRITE(14.908) 

WRITE(14, 937)10, I PAGE 
WRITE(14,938) 

NLINES— 0 
END  IF 

DO  212  LI-1 .NELS(NZ) 

I-NUM(NZ.LI) 

SV-RBAR.ELEMT(I . 2)/(P»CCAL*ELEMT( I ,6)) 

UFMF-1 . 0-ELEMT (1.3) 

Y(2)-Y(2)+ELEMT(I ,2)»EU*t 
Y(4)-Y(4)+SV»EL>W 

Y(6)-Y(6)+( 1 .-ELEMT ( I ,3) • ( 1 .-ELEMT (1,1)) ) »ELMM 
Y(9)-Y(9)+UFMF*ELVW 
I F( ELEMT ( 1 , 3)  .  LT .  1 . )  GO  TO  212 
M8URN-MBURN+EUW 
Y(7)-Y(7)+ELEMT( I , 1)«EUW 
Y(8)-Y(8)+ELEMT(I ,2)»ELAW 
212  CONTINUE 


o  o 


Y( 1 )-Y(2)+ZMASSL(NZ) »TFI 

Y(3)-Y(4)+ZMASSL(NZ)/RH0L 

Y(6)-Y(6)+ZMVAP(NZ) 

Y(5)-Y(6)+ZMASSL(NZ) 

Y(9)-Y(9)+ZMVAP(NZ) 

DO  215  J-1 .9 

YT(J)-YT(J)+Y(J) 

215  CONTINUE 

MTOT-MGAS+ZMASS  L ( NZ ) 

Y(1)-Y(1)/MTOT 

Y(3)-Y(3)/MTOT 

Y(5)-Y(5)/MTOT 

Y(2)-Y(2)/MCAS 

IF(NZ.EQ.1)T1-Y(2) 

IF(NZ.EQ.2)T2-Y(2) 

Y(4)-Y(4)/MGAS 

Y(6)-Y(6)/MGAS 

Y(9)-Y(9)/MGAS 

I F (MBURN . EQ . 0 . )  GO  TO  216 

Y(7)-Y(7)/MBURN 

Y(8)-Y(8)/M8URN 


216  DO  220  LI-1 .NELS(NZ) 

I-NUM(NZ.LI) 

TMOLS-TMOLS+ELKM/ELEMT ( I . 6) 

NOX-NOX+ELMT ( 1 .  1  )»EU*4 
SOOT— SOOT+ELMT (1,3) 

220  CONTINUE 
C 

WTMOL— NELS(NZ) •ELAM/TMOLS 

TWT-TWT+NELS(NZ)»ELMM 

TTMOLS— TTMOLS+TMOLS 

TSOOT-TSOOT+SOOT 

TNOX— TNOX+NOX 

NOX-NOX*1 . 0E+06/MGAS 

SOOT- ( SOOT/ (MTOT  »Y(5) »CTOF) ) » 1 00 . 

FFUEL(NZ)-Y(6) 

TAV(NZ)-Y(2) 

PHIAV-PHICON»Y(5)/(1 .  -  Y(5)) 

PHIGAS— PHICON»Y(6)/( 1 .  -  Y(6)) 

PHIBRN-PHICON»Y(7)/( 1 .  -  Y(7)) 

I F ( NPR I  NT . NE . 2 . AND . NPR INT.NE.3)THEN 

WRITE( 1 4,939 )NZ .CRANK , Y( 1 ) , Y(2) . Y(3) , Y(4) , PHIAV , PHIGAS . 
WRITE( 1 4, 940)NCYC , Y(8) ,Y(9) , NOX , ELMM , PHIBRN ,PMDM 
WRITE(14,9401 )DTMIX(NZ) , NEIS(NZ) , ZMASSL(NZ) . SOOT , WTMOL , 
1  TMEVAP(NZ) ,TTBF(NZ) ,T8F(NZ) 

END  IF 

TMASSL«TMASSL+ZMASSL(NZ) 

TMTOT-TMTOT+MTOT 
TMGAS— TMGAS-t-MGAS 
NLINES— NLINES+1 

250  CONTINUE 

DO  251  NZ-1.NZONES 

TTMEVAP-TTMEVAP+TMEVAP ( NZ ) 

TOTBF«TOTBF+TBF(NZ) 

T8FMDI*-TBFMDU4-TTBF(NZ) 

251  CONTINUE 


o  o 


CALCULATE  OUTPUT  FOR  ALL  ZONES  INCLUDING  1 

ZMA-ZMA-DFM(NFLOW) 

ZMVA-ZMVA-DFMV(NFLOW) 

ZMBFA-ZMBFA-DFMB F ( NF LOW) 

TMASS L-TMASS  L+ZMASS  L  (  NA  ) 

UBFMFA-ZMVA 

TTMEVAP-TTMEVAP+TMEVAP(NA) 

IF((ZMA. LE.0. .OR.NELS(NA) . EQ. 0) . AND . TMTOT .GT . 0. )THEN 
YT(1)-YT(1)/TMTOT 
YT(2)-YT(2)/TMGAS 
YT(3)-YT(3)/TMTOT 
YT(4)-YT(4)/TMGAS 
YT ( 5 )- ( TTM  EVAP+TMASS  L ) /TMTOT 
YT  (  6  ) -TTMEVAP/TMGAS 
YT(9)-(YT(9)+U8FMFA)/TMGAS 
TWTMOL-TWT/TTMOLS 

TSOOT-(TSOOT/(TMTOT«YT (5) «CTOF) ) *100. 

TNOX-TNOX*1 . 0E+6/TMGAS 
ELSE 

TMTOT-TMTOT+ZMA+ZMASS  L  (  NA  ) 

TMGAS-TMGAS+ZMA 

TMOLSA-0. 

NOX-0. 

SOOT-0. 

DO  255  LI-1 .NELS(NA) 

I-NUM(NA.LI) 

NOX— NOX+ELMT ( I . 1 )*ELMM 
SOOT— SOOT+ELMT (1,3) 

255  CONTINUE 

BGFRA-1 ,-ZMVA/ZMA 
FRA-ZMB FA/ ( ZMA-ZMVA ) 

IF(BGFRA. LT. 1 . )  THEN 

CALL  UTHRMO(P.ZTEMP(NA) , FRA, BCFRA, HAIR, CPAIR.WTAIR) 
ELSE 

CALL  BTHRMO(P,ZTEMP(NA) , FRA, HAIR, CPAIR.WTAIR) 

END  IF 

TMO  LSA-ZMA/WT  AIR 

SVAIR«RBAR»ZTEMP(NA)/(P*CCAL*WTAIR) 

270  YT( 1 )-(YT ( 1 )+ZTEMP(NA) .ZMA+TFI .ZMASSL(NA) ) /TMTOT 
YT(2)-(YT(2)+ZT EMP(NA) »ZMA)/TMGAS 
YT(3)-(YT(3)+SVAIR»ZMA+ZMASSL(NA)/RHOL)/TMTOT 
YT(4)-(YT(4)+SVAIR*ZMA)/TMGAS 
YT ( 5 ) — ( TTM EVAP+TMASS L ) /TMTOT 
YT  ( 6 ) - ( TTMEVAP )/TMGAS 
YT(9)-(YT(9)+UBFMFA)/TMGAS 
TTMOLS-TTMOLS+TMOLSA 
TWTMO  L- ( TWT+ZMA ) /T  TMO  LS 

TSOOT-( ( TSOOT+SOOT )/ ( TMTOT  »YT (5) »CTOF) ) *100. 
TNOX-(TNOX+NOX) • 1 . 0E+06/TMGAS 
TOTBF-TOTBF+TBF(NA) 

TBFMDW^TBFMDM+TTBF(NA) 

END  IF 

PH  I AV-PH I CON • YT ( 5 ) / ( 1 . — YT ( 5 ) ) 

PHIGAS— PH ICON»YT (6)/( 1 ,-YT(6)) 

IF(NPRINT . NE . 2 . AND . NPRINT . NE . 3)THEN 

WRITE(14,941 ) CRANK , YT( 1 ) . YT (2) ,YT(3) . YT (4) . PHI AV. PHIGAS , P 


WR I TE( 1 4 , 942 ) NCYC ,  YT ( 9 )  , TNOX . TMTOT , PH I BRN . PMDM 

WR I TE( 1 4 . 9421 ) TMASSL , TSOOT . TWTMOL . TTMEVAP . TBFMDM . TOTBF 

END  IF 

IF(NPRINT.NE.5)THEN 

I F (NAV . GT . 0 . AND . NOLD . GT . 0 ) THEN 

READ(20,*)CRANK, (TAVX(L).L-I .N20NES) 

READ(21 , *)CRANK, (DFMVX(L) , DFMBFX(L) , L-1 .NFLOW) 

READ (22, ») CRANK , (FFU£LX( L) , L— 1 .NZONES) 

READ ( 23 , *)CRANK , (T8FX(L) , L-1 .NZONES) 

END  IF 

WRITE( 1 5 ,9422) CRANK , ( ( NAV*  TAVX ( L) +TAV ( L) )/NAVP 1  .  L»  1  , NZONES ) 
WRITE(16,9425)CRANK,((NAV.DFMVX(L)+DFMV(L))/NAVP1 , (NAV* 

1  DFM8FX(L)+DFMBF(L))/NAVP1 , L-1 .NFLOW) 

WRITE(  1 7 ,9424) CRANK ,  ( (NAV*FFUELX(L)+FFUEL( L) )/NAVP1  ,  L— 1  .NZONES) 
WRITE(  1 8,9424)CRANK ,  ( (NAV»TBFX(L)+TBF(L)  )/NAVP1  ,  L*=1  .NZONES) 

END  IF 

WRI TE(9 . 9423)CRANK , P , YT (2) , TNOX , TSOOT . TOTBF 
PTEMP-P 

IF(NAV.CT.0. AND. NOLD. GT.0)THEN 

READ( 24 . •) CRANK , PX.YTX, TNOXX , TSOOTX , TOTBFX 
PT EMP- ( NAV* PX+P ) /NAVP 1 
YT  (  2  )  -  (  NAV  •  YTX+YT  (  2  )  ) /N  AVP 1 
TNOX- ( NAV  *  TNOXX+TNOX) /NAVP 1 
T  SOOT - ( NAV  *  T SOOTX+T SOOT ) /NAVP 1 
TOTBF-(NAV*TOTBFX+TOTBF)/NAVP1 
END  IF 

WRITE( 1 9 . 9423)CRANK , PTEMP . YT(2) , TNOX , TSOOT , TOTBF 
IF(N. EQ.8)  GO  TO  800 
NLINES-NLINES+1 
GO  TO  899 
C 

. . * . . . * . . 

c 

C  OUTPUT  NR  5:  VOLUME  OUT  OF  TOLERANCE 
500  WRITE( 1 3 , 945)  NCYC. TIME, CRANK. VOLERR 
GO  TO  899 
C 

C  •••••••••••*••••«**•****••***••*•*••••» 

c 

c  OUTPUT  NR  6:  BTEMP  DID  NOT  CONVERGE 
600  WRITE( 13,946)  NCYC, CRANK 
GO  TO  899 
C 

. . * . . 

c 

C  OUTPUT  NR  9:  UTEMP  DID  NOT  CONVERGE 
650  WRITE( 1 3 , 9461 )  NCYC. CRANK 
GO  TO  899 
C 

. . . . . 

C 

C  OUTPUT  NR  8:  FINAL 
800  WRITE( 1 4 ,948)  NCYC . TIME. CRANK 
C 

. . * . . . 

C 

899  RETURN 
C 


o  o 


-228- 


FORMAT  STATEMENTS 

900  FORMAT (//,7X,110(’«’)) 

901  FORMAT (7X , * • ’ , 1 0SX , ’ • ' ) 

902  FORMAT(7X, ,42X. ‘MIT  SLOAN  AUTOMOTIVE  LAB 1 , 42X , • . 1 ) 

903  FORMAT (7X, * • * ,29X, ‘STOCHASTIC  MIXING  MODEL  ENGINE  COMBUS’, 
t’TION  SIMULATION’ ,27X, ••') 

9031  FORMAT(7X, ,47X, A15.4SX. ’•’) 

904  FORMAT(7X. ’•’ ,6X, ’VERSION  1 . 0 ’ ,91 X. * • ’ ) 

905  FORMAT ( 7X. ’•’ ,6X, ’AUGUST  1985  ’.90X.’*’) 

906  F0RMAT(7X , ’ • ’ . 6X , ’ A. J .  BROWN  ’,87X.‘»’) 

907  FORMAT (7X , 1 10( ’ • ‘ ) ) 

908  FORMAT ( ’ 1 ’ ) 

909  FORMAT (//, 3 1 X. ’ —  STOCHASTIC  MIXING  MODEL  ENGINE  COMBU*. 

It ’ST  I  ON  SIMULATION  — ’  ,21X. ’PAGE  ’.II) 

910  FORMAT (///, 5X, ’  SIMULATION  ID:  *,A15) 

912  FORMAT (///, 49X , 21 ( '— * ) ,/,49X, ’ I  N  P  U  T  DATA’, 

4/ , 49X , 21 ( '— ‘ ) ) 

913  FORMAT (//, 10X , 1 00( 5X, ’ I .  OPERATING  CONDITIONS’) 

914  FORMAT(/.14X, 'MULTIDIMENSIONAL  MODEL  — >‘,8X,A30) 

915  FORMAT (/.14X, 'ENGINE  SPEED  (RPM)  — >’.8X,F6.1) 

916  FORMAT(/,14X, 'INJECTION  CRANK  ANGLE  (ATDC)  — >’,8X,F6.1) 

917  FORMAT (/ ,  1 4X , ' END  CRANK  ANGLE  (ATDC)  — >’8X,F6.1) 

918  FORMAT (//, 1 0X , 1 00( ’  — ’ ) ,/, 5X , ’ 1 1 .  FUEL  AND  AIR’) 

919  FORMAT(/,14X. 'FUEL  TYPE  — >’,15X,A12) 

920  F0RMAT(/,14X. 'SPECIFICATIONS  —>’, 1 0X .’ CARBON  ATOMS:  ’, 

It  IP  E9.2,6X,'C/H  RATIO:  '.IP  E10.3) 

921  F0RMAT(/,14X. 'NITROGEN/OXYGEN  RATIO  —>’ ,2X, IP  E10.3) 

922  FORMAT (//, 10X,100('— '),/.5X, ’III.  SIMULATION  CONTROL’) 

923  FORMAT(/,14X, 'ELEMENT  MASS  (g)  -->’,8X.1P  E10.3) 

924  FORMAT(/,14X, 'ERROR  TOLERANCES  (r«l)  —>’ ,8X, ’VOLUME: ’ , 
k  IP  El 0. 3, 6X, 'ENTHALPY  (for  t«mp  cole):  '.IP  E10.3) 

925  F0RMAT(/,14X, 'MAXIMUM  NUMBER  OF  ITERATIONS  — >’ ,2X, 

It  ’TEMPERATURE  SUBROUTINES IX, 13 ,2X, ’VOLUME  SUBROUTINE: IX. 13) 

926  FORMAT (/.14X, 'RANDOM  NUMBER  SEED  — >’,6X,I9) 

927  F0RMAT(/,14X. ’NUMBER  OF  ZONES  — >’,6X,I2) 

928  F0RMAT(/,14X. 'PRINTOUT  TIMESTEP  (s)  — >’,6X,1P  E10.3) 

9281  FORMAT(/.14X. 'KINETIC  UPDATE  TIMESTEP  (s)  — >',6X,1P  E10.3) 

929  FORMAT (//, 1 0X, 100( ’—’),/, 5X, ’IV.  ASSUMED  INPUT  VALUES’) 

930  FORMAT(/.14X. 'LIMITS  OF  COMBUSTION  (phi)  —>’ ,4X, ’UPPER:  ‘.F6.4, 

*  6X. ’LOWER:  ’ , F6 . 5) 

931  F0RMAT(/.14X. ’ INITIAL  SOOT  SIZE  UPON  FORMATION  (cm)  — >’ ,2X, 

41P  E10.3) 

932  FORMAT (/, 1 4X , ’ SOOT  MODEL  IS  ON  — >’.2X.L1) 

933  FORMAT (/, 14X, ’SOOT  FORMATION  RATE  FACTOR  — > ’ , 2X ,G1 0 . 3) 

9333  FORMAT (/, 1 4X , 'CBETA  — >’,2X.F5.2) 

937  FORMAT (29X, ’ —  STOCHASTIC  MIXING  MODEL  ENGINE  COMBUSTION  ’ 

1  ’SIMULATION  — ’ ,9X.A12,2X, ’PAGE  ’,12,///) 

938  FORMAT (7X, ’ZONE’ ,3X, ’CRANK (ATDC) ’ ,4X, ’TAVE(K) ’ ,5X, ’ TGAVE(K) ’ , 

1  6X , ’SVAVE(CC/G) ’ ,3X . ’ SVGAVE(CC/G) ’ ,4X, ’PHIAV ,6X, 'PHIGAS’ . 

2  9X , ’ P(ATM) ’ ,/, 1 4X , ’NCYC' ,11X, 'TBURN(K) ’ , 4X , 'UBFMF’ ,9X, 

3  ’NOX(PPM) ’ ,7X, ’ ELNM(G) ’ ,4X, ’PHI  BURN’ ,8X, ’PMDM’ . 

4  /,  14X,  ’DTMIX(S)  ’  ,7X,  ’NELS’  ,8X,  'ZMASSL(G)’  ,5X,  *  SOOT  (JSC)  ’  ,6X, 

5  ’WTMOL’ ,11X, ’MEVAP(G) ’ , 4X , ’TBFMDM(G) ’ ,5X, ’TBF(G) ’) 

939  FORMAT (//t8X,I2t4X,F7.2.8X.F7.2,5X,3(F7.2,7X),F6.2,6X>F5.2, 

1  10X.F6.2) 

940  FORMAT (13X, 14, 12X,F7.2,5X,G12.5,2X,G12.5,2X,G12.5,2X, 

1  F4.2, 10X.F6.2) 


9401  format(i3x,gi2.5.4x.i4,8x.gi2.5.2x,gi2.5.2x,gi2.5,2x.gi2.5, 

1  2X.G9.2.2X.G9.2) 

941  FORMAT (//,8X, 'ALL* ,3X, F7 . 2, 8X. F7 . 2 , 5X , 3(F7 .2 ,7X) . IX . F5 . 2 ,7X . 

1  F4.2.10X.F6.2) 

942  FORMAT ( 1 3X, 14 , 24X ,G1 2 . 5 ,2X,G12.5,2X.G12.5,2X,F4.2,10X,F6.2) 

9421  FORMAT (41X,G12.5,2X,G12.5,2X,G12.5,2X,G12.5,2X,G9.2,2X,G9.2) 

9422  FORMAT ( 1 X , F6 . 2 , 1 0F7 . 1 ) 

9423  FORMAT (1X,F6.2,F6.2,F7.1,1X,G9.3,1X,G9.3,1X,G9.3) 

9424  FORMAT ( IX , F6 . 2, 10G9 .2) 

9425  FORMAT (1X,F6.2,9G10.2,/,7X,9G10.2) 

943  FORMAT (4X. ‘ERROR  3:  NCYC-‘.I4, 3X . ‘TIME-1 . F6 . 4 ,3X . ‘ CRANK-' . F£ 
1  3X . ’ NZ-’ . 12 ,3X , 1 ZMASSL-’ ,G1 0 . 3) 

944  FORMAT (4X. ‘ERROR  4:  NCYC- ‘ , 14 ,3X, *  TIME-' . F6 . 4. 3X. ‘CRANK-1 . Fe 

1  3X. ‘NZ-‘ .I2.3X, ‘ZMASSL-’ ,G1 0 . 3 . 3X. ’ ZMEVAP-* .G10.3) 

945  FORMAT (4X, ‘ERROR  5:  NCYC- ‘ . I4.3X, ’ TIME-’ , F6 . 4,3X , ’ CRANK-' , F£ 

1  3X. 'VOLERR-' .G10.3) 

946  FORMAT (4X. ‘ERROR  6:(BTEMP)  NCYC- ’ , 14, 3X , ’CRANK-' . F6 . 2) 

9461  FORMAT(4X, ‘ERROR  9: (UTEMP)  NCYC-’ , 14, 3X , ’CRANK-’ . F6 . 2) 

948  FORMAT (//,7X, ‘THE  END:  NCYC-’ . 14 . 3X , ‘TIME-’ , F6 . 4 ,3X . ’CRANK-' 
1  F6.2) 


SUBROUTINE  PREPUP (DTUP.N) 

PURPOSE 

UPDATES  ELEMENT  IGNITION  PREPARATION 


PARAMETERS 
DELAY  - 
PREP 
DTUP 


IGNITION  DELAY  TIME 
INTEGRATED  IGNITION  PREPARATION 
TIME  INTERVAL  FOR  UPDATE 


SUBROUTINE  PREPUP (DTUP.N) 

INCLUDE  ’ SM4C0M . FOR ’ 

DIMENSION  ELEMT(MAXELE,6) , PREP(MAXELE) 
COMMON  /ELEMT1/  ELEMT 
CC**CN  /ELEMT5/  PREP 
PARAMETER (A-3 . 45E-3 , E-21 00 . ,C-1 . 02) 

DELAY-A«EXP(E/ELEMT(N , 2) )/(P**C) 
PREP(N)-PREP(N)+OTUP/DF.UY 

RETURN 


C  SUBROUTINE  PROP(TIMUP.NZ.N) 

C 

C  PURPOSE 
C 

C  TO  UPDATE  ELEMENT  PROPERTIES  EVERY  DTK  IN  OR  BEFORE  MIXING 

C  TO  CALCULATE  THE  FORMATION  OF  NO  AND  THE  FORMATION/ 

C  OXIDATION  OF  SOOT. (AS  SPECIFIED) 


C  METHOO 


o  o  o  o  o  o 


C  NO  FORMATION  IS  CALCULATED  VIA  THE  ZELDOVICH  MECHANISM 

C  AND  SOOT  OXIDATION  IS  CALCULATED  BY  THE  NAGLE  AND 

C  STRICKLAND— CONSTABLE  RELATION. 

C 

SUBROUTINE  PR0P(T1MUP ,NZ,N) 

INCLUDE  'SMMCOM. FOR’ 

INCLUDE  ’ SMZCOM. FOR’ 

DIMENSION  ELEMT(MAXELE,6) , ELMT(MAXELE, 4) .PREP(MAXELE) 

COMMON  /ELEMT1/  ELEMT 
COMMON  /ELEMT2/  ELMT 
COMMON  /ELEMT5/  PREP 

PARAMETER (RHOI . 8 . CONSNO=4 . 56E1 5 . CCAL- . 02421725 . RBAR-1 . 9869 ) 
C 
C 

C  UPDATE  PROPERTIES 
C 

DTPROP-T I MUP- ELMT (N,4) 

IF(DTPROP. LE.0. )GO  TO  400 
ELMT(N.4)-TIMUP 
1F(ELEMT(N,3) . LT.1 .)  THEN 
CALL  PREPUP (DTPROP.N) 

CALL  CMBUST (NZ , N , 0) 

WTBG-ELEMT(N,6)*WTFUEL»ELEMT(N.3)/(WTFUEL- 
1  ELEMT(N,6)«(1 .-ELEMT(N,3))) 

CALL  SPEC02(P, ELEMT (N, 2) . ELEMT(N, 1 ) ,02) 

02-02 . E L EMT ( N , 3 ) • E LEMT ( N , 6 ) /WTBG 
IF(SOOTON(NZ))  CALL  S0OT(DTPROP,O2,N) 

ELSE 

CALL  SPEC02(P , ELEMT(N ,2) , ELEMT (N, 1 ) ,02) 

PREP(N)— 0. 

END  IF 

IF(ELEMT(N,2).LE.1700.)  GO  TO  300 

NO  FORMATION  CALCULATIONS 

SV-RBAR • ELEMT (N, 2 )/(P*CCAL» ELEMT (N, 6)) 

CALL  SPECNO  (P, ELEMT (N,2) .ELEMT (N, 1 ) ,U1 ,U2,U3) 

ALFA-ELMT(N. 1 ) *ELEMT(N, 6)/(U1 «30 . ) 

BETA— 82 .05 ‘ELEMT (N ,2) *82 . 05* ELEMT (N,2)/(P»P) 

DNOOT-CONSNO*  EXP (—38000 . /ELEMT (N , 2) ) * ( 1 . -ALFA*ALFA) * 

*  U2«SV/((1 ,+ALFA»U3) »BETA) 

ELVT(N.  1  )-ELMT(N,  1  )+DNODT»DTPROP*  ELEMT  (N ,  3) 

I F(ELMT (N , 1 ) . LT .0 . )ELMT(N , 1 )«0 . 

SOOT  OXIDATION  CALCULATIONS 

300  IF(ELMT(N,3)  .LE.  0.)  GO  TO  340 
IF(ELMT(N,2)  .LE.  0.)  GO  TO  340 
IF(ELEMT(N,2) .LT.TSOOT)GO  TO  400 
SKA-20 . »EXP(-1 51 00 ./ELEMT (N , 2) ) 

SKB-4 . 46E-3»EXP(-7650 ,/ELEMT(N , 2) ) 

SKT-1 .51 E5*EXP(— 48800 . /ELEMT (N , 2) ) 

SKZ-21 .3*EXP(2060./ELEMT(N,2)) 

U4PPC-02»P 

SXX-1 ./(I ,+SKT/(SKB*U4PPC) ) 

WXX-1 2 . • (SKA»U4PPC/ ( 1 .+SKZ«U4PPC) ) •SXX4SKB*U4PPC» ( 1 ,-SXX) 
DSOXOT-ELMT (N , 2 ) «WXX 


o  o  o  o  o  o  o 


SOOT  MASS  CHANGE 
OLD-ELMT (N,3) 

ELMT (N,3)-ELMT (N,3)— OTPROP*DSOXDT 
IF(ELMT(N,3)  .GT.  0.)GO  TO  350 
340  ELMT(N.3)«0. 

ELMT(N,2)-0. 

GO  TO  400 

SOOT  SURFACE  AREA  CHANGE 

350  ELMT (N, 2) “ELMT (N, 2) • ( ( ELMT(N .SJ/OLD )••. 666666) 


400  RETURN 
END 

C*** . . . • . . . ***** . 

. . ••••• . *..***.. . . . . . . 

c 

C  SUBROUTINE  QWALL(NZ) 

C 

C  PURPOSE 

C  DISTRIBUTES  ZQWALL  TO  EACH  ELEMENT  IN  THE  ZONE 

C  ACCORDING  TO  (T-TWALL)  AND  SURFACE  AREA 

C 

C  VARIABLES 
C 

SUBROUTINE  OWALL(NZ) 

INCLUDE  •SfcWCOM.FOR' 

INCLUDE  'SMZCOM. FOR ’ 

DIMENSION  NUM(NA.MAXELE) , TFMF(MAXELE) 

REAL  XSVDT(MAXELE).ELEMT(MAXELE,6) 

COMMON  /ELEMT1/  ELEMT 

COMMON  /ELEMT 6/  NUM.TFMF 

PARAMETER ( RBAR- 1 . 9869 .CCAL-. 02421725) 

I F(ZQWALL(NZ) . EQ. 0 . )  GO  TO  300 
DE^-0. 

TTHIRD-2./3. 

DO  100,  LN-1 . NELS(NZ) 

N-NUM(NZ.LN) 

SV-R8AR*£LEMT(N , 2)/(P»CCAL* ELEMT (N , 6) ) 
XSVDT(N)-(SV**TTHIRD) • ( ELEMT (N , 2)-TWALL) 
DEN-DEN+XSVDT (N) 

100  CONTINUE 

DO  200.  LN-1 , NELS(NZ) 

N-NUM(NZ.LN) 

ELEMT(N.4)-ElEMT(N.4)+ZQWALL(NZ)*XSVDT(N)/(DEN*ELMM) 
200  CONTINUE 
300  RETURN 


o  o 


0  AND  1.0  AND  RANDOM  INTEGERS  BETWEEN  ZERO  AND  2»»31 . 
EACH  ENTRY  USES  AS  INPUT  AN  INTEGER  RANDOM  NUMBER  AND 
PRODUCES  A  NEW  INTEGER  AND  REAL  RANDOM  NUMBER 


DESCRIPTION  OF  PARAMETERS 

PARAMETER  INPUT  OUTPUT  DESCRIPTION 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IX 


IY 

YFL 


YES  NO 


NO  YES 

NO  YES 


FOR  THE  FIRST  ENTRY  THIS  MUST 
CONTAIN  ANY  ODD  INTEGER  NUMBER  WITH 
NINE  OR  LESS  DIGITS.  AFTER  THE  FIRST 
ENTRY  IX  SHOULD  BE  THE  PREVIOUS 
VALUE  OF  IY  COMPUTED  BY  THIS 
SUBROUTINE. 

A  RANDOM  NUMBER  BETWEEN  0  AND  2*»31 
A  RANDOM  NUMBER  BETWEEN  0  AND  1.0 


REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 

METHOD 

SEE  IBM  MANUAL  C20-8011.  RANDOM  NUMBER 
GENERATION  AND  TESTING 


SUBROUTINE  RANOOM( IX. IY.YFL) 
'  INTEGER»4  IX. IY 
IY«IX*65539 
IF(IY)1 .2.2 

1  I Y- I Y+2 147483647+1 

2  YFL-IY 

YFL-YFL*0. 465661 E-9 

RETURN 

END 


PROGRAM  SLW 


PURPOSE 


FUNCTION  AS  THE  PRIMARY  CONTROL  PROGRAM  FOR  A 
STOCHASTIC  MIXING  MODEL  TO  CALCULATE  EMISSIONS  IN  A 
DIESEL  ENGINE.  INITIALIZES  VARIABLES 
CALLS  INPUT  AND  OUTPUT.  DOES  PRELIMINARY  CALCULATIONS 
AND  CONTROLS  PROGRAM  EXECUTION  AND  EVENT  TIMING. 

LOGICAL  UNITS: 

INPUT  OUTPUT  CONTENT 

9  PRIMARY  SINGLE  RUN  OUTPUT  FILE 

10  NAMELIST 

1 1  MOM  DATA 

12  THERMO  DATA 
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c 

13 

ERRORS 

C 

14 

FANCY  SINGLE  RUN  OUTPUT 

c 

20 

15 

MEAN  ZONE  TEMPERATURES  (MULTIPLE  RUN  AVERAGE) 

C 

21 

16 

FLOW  ERRORS  (MULTIPLE  RUN  AVERAGE) 

c 

22 

17 

ZONE  FUEL  FRACTIONS  (MULTIPLE  RUN  AVERAGE) 

c 

23 

18 

ZONE  BURNED  FUEL  (MULTIPLE  RUN  AVERAGE) 

c 

24 

19 

PRIMARY  OUTPUT  (MULTIPLE  RUN  AVERAGE) 

c 

26 

25 

DISTRIBUTIONS  (MULTIPLE  RUN  AVERAGE) 

C  VARIABLES 
C 


CA1INJ  -  CRANK  ANGLE  START  OF  INJECTION  (ATDC) 

CAD  -  CRANK  ANGLE  BETWEEN  DISTRIBUTION  OUTPUTS 
CATOM  -  NUMBER  OF  CARBON  ATOMS  IN  FUEL 
CBETA  -  SCALING  CONSTANT  FOR  MIXING  INTENSITY 
CP  -  SPECIFIC  HEAT  (cal/g-k) 

CPF  -  FJEL  SPECIFIC  HEAT  (cal/g-K) 

CRANK  -  CRANK  ANGLE  (DEGREES  ATDC) 

CRANKD  -  CRANK  OF  PREVIOUS  DISTRIBUTION  OUTPUT  (ATDC) 
CRKMAX  -  CRANK  ANGLE  END  OF  RUN  (ATDC) 

CTOF  -  FUEL  CARBON  MASS  PER  UNIT  FUEL  MASS 
DT  -  BASIC  TIMESTEP  (s) 

DEL  -  FUEL  C:H  RATIO 

DELTAP  -  SMM  PRESSURE  DIFFERENCE  SINCE  LAST  MDM 
UPDATE(atm) 

DTPR  -  TIMESTEP  FOR  PRINTING  OUTPUT(s) 

DTK IN  -  MINIMUM  TIME  BETWEEN  CHEMISTRY  UPDATES  (S) 

CAD  -  CRANK  ANGLE  INCREMENT  FOR  DISTRIBUTION  OUTPUT 
ELMM  -  ELEMENT  MASS  (g) 

ERMAX  -  ERROR  CRITERION  FOR  TEMP  ROUTINES  (fraction) 
FERMAX  -  FLOW  ERROR  TOLERANCE  (g) 

FML0  -  LIQUID  FUEL  INJECTED  DURING  MDM  TIMESTEP  (g) 
FUEL  -  CHARACTER  VARIABLE  CONTAINING  NAME  OF  FUEL 
HEVAP  -  FUEL  SENSIBLE+LATENT  HEAT  OF  EVAPORATION cal/g) 
HFG  -  FUEL  LATENT  HEAT  (cal/g) 

HFUEL  -  FUEL  VAPOR  ENTHALPY  AT  TSAT  (cal/g) 

ID  -  CHARACTER  VARIABLE.  SPECIFIED  SIMULATION  ID 
ITMAXV  -  MAX  ITERATIONS  FOR  VOLUME  CONSERVATION  ROUTINE 
IX. IY  -  RANDOM  NUMBER  SEEDS 
LLIMT  -  LOWER  LIMIT  OF  COMBUSTION  (FMF) 

MAXITS  -  MAXIMUM  NUMBER  OF  ITERATIONS  FOR  TEMP  ROUTINES 
NAME  -  NAME  OF  MDM  RUN  USED 

NA  -  TOTAL  NUMBER  OF  ZONES  OR  NUMBER  OF  AIR  ZONE 
NAV  -  NUMBER  OF  SMM  RUNS  USED  FOR  AVERAGING 
NCYC  -  NUM8ER  OF  MDM  UPDATES 
NELAIR  -  NUMBER  OF  ELEMENTS  IN  AIR  ZONE(ACTIVE+INACTIVE) 
NELTOT  -  TOTAL  NUMBER  OF  ACTIVE  ELEMENTS  (ALL  ZONES) 

NF  -  ZONE  FLOW  NUMBER 
NUNES  -  NUMBER  OF  LINES  IN  OUTPUT  PAGE 
NPRINT  -  SPECIFIES  OUTPUT  FORMAT 

NPRINT-1  -  WRITES  ALL  OUTPUT  FILES 
NPRINT-2  -  WRITES  LOGICAL  UNITS  15-19 
NPRINT-3  -  WRITES  15-19,25 
NPRINT-4  -  WRITES  13-19,25 
NPRINT-5  -  WRITES  13,14,19 

NZ  -  ZONE  NUMBER 

NZONES  -  NUMBER  OF  SMM  ZONES  NOT  INCLUDING  AIR  ZONE 
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C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

<•» 

c 

0 

c 

c 

c 

c 

c 

C  ARRAYS 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


P  -  SVM  PRESSURE  (atm) -CALCULATED 
PMDM  -  MDM  INPUT  PRESSURE  (ATM) 

PHI  -  FUEL-AIR  EQUIVALENCE  RATIO 
PHICON  -  STOICHIOMETRIC  AIR  -  FUEL  RATIO 
PHIHI  -  PHI  UPPER  COMBUSTION  LIMIT 
PHI  LOW  -  PHI  LOWER  COMBUSTION  LIMIT 
PSI  -  N2/02  RATIO  FOR  INLET  AIR 
PSTART  -  PRESSURE  AT  CRANK-CA1INJ  (otm) 

RHOL  -  FUEL  DENSITY  (g/cc) 

RPM  -  ENGINE  SPEED 

SOTSIZ  -  INITIAL  SOOT  PARTICLE  RADIUS  FOR  FORMATION 
SOOTC  -  SOOT  FORMATION  RATE  CORRECTION  FACTOR 
SVFUEL  -  FUEL  VAPOR  SPECIFIC  VOLUME  AT  TSAT  (cc/g) 

TFI  -  FUEL  TEMPERATURE  AT  INJECTION  (K) 

TIME  -  CUMULATIVE  SMJ  CLOCK  TIME  (a) 

TIMEPR  -  TIME  OF  PREVIOUS  BASIC  PRINTOUT  (a) 

TIMMDM  -  TIME  END  OF  NEXT  MDM  CYCLE  (a) 

TMPROP  -  TIME  ROUTINE  PROP  LAST  CALLED  (a) 

TSOOT  -  MIN  TEMP  FOR  SOOT  OXIDATION  (K) 

TSAT  -  FUEL  SATURATION  TEMPERATURE  AT  P-50ATM  (K) 
TWALL  -  CYLINDER  WALL  TEMPERATURE  (K) 

ULIMT  -  UPPER  LIMIT  OF  COMBUSTION  (FMF) 

VERMAX  -  MAX  VOLUME  ERROR  IN  VOL  ROUTINE  (FRAC) 
WTFUEL  -  FUEL  MOLECULAR  WEIGHT  (g/graol) 

ZH  -  NO.  OF  HYDROGEN  ATOMS  IN  THE  FUEL 
ZMA  -  AIR  ZONE  TOTAL  MASS  (g) 

ZMVA  -  AIR  ZONE  FUEL  VAPOR  MASS  (g) 

ZMBFA  -  AIR  ZONE  BURNED  FUEL  MASS  (g) 


DFM(NF)  -  RESIDUAL  FLOW  MASS  (g)  ADDED  TO  FM  NEXT  DT 
DFMBF(NF)  -  RESIDUAL  FLOW  BURNED  FUEL  MASS  (g) 

DFMV(NF)  -  RESIDUAL  FLOW  FUEL  VAPOR  MASS  (g) 

DTMIX(NZ)  -  TIME  STEP  BETWEEN  MIXING  FOR  ZONE  NZ  (S) 
FM(NF)  -  TOTAL  MASS  FLOW  (g) 

FMBF(NF)  -  BURNED  FUEL  MASS  FLOW  (g) 

FMV(NF)  -  FUEL  VAPOR  MASS  FLOW  (g) 

NELMIX(NZ)  -  NUMBER  OF  ELEMENTS  MIXED  IN  ZONE  NZ  LAST 
TIMESTEP 

NELS(NZ)  -  NUMBER  OF  ACTIVE  ELEMENTS  IN  ZONE  NZ 


(cm) 


NOTE: 


ELEMENTS  IN  THE  AIR  ZONE  DO  NOT  BECOME  ACTIVE  UNTIL  THEY  ARE 
REQUIRED  FOR  SOME  SfcW  PROCESS,  IE.  MIXING,  EVAPORATION, 

FLOW.  THIS  REDUCES  RUN  TIME  BY  NOT  MIXING  ELEMENTS  THAT 
AREN'T  DOING  ANYTHING.  NELS(NA)  -  ACTIVE  AIR  ZONE  ELEMENTS. 
NELAIR  -  TOTAL  AIR  ZONE  ELEMENTS. 

NN(NF)  -  NUMBER  OF  MASS  FLOW  ELEMENTS  IN  NEGATIVE 
DIRECTION 

NP(NF)  -  NUMBER  OF  MASS  FLOW  ELEMENTS  IN  POSITIVE 
DIRECTION 

NUM(NZ.N)  -  PROPERTY  ARRAY  NUMBER  FOR  ELEMENT  N  IN  ZONE  NZ 
SOOTON(NZ)  -  IF  'TRUE*  SOOT  MODEL  ON  IN  ZONE  NZ 
TBF(NZ)  -  TOTAL  BURNED  FUEL  FOR  ZONE  NZ  IN  SLW 

TBFVOM  -  TOTAL  BURNED  FUEL  ALL  MDM  ZONES  (g) 

TOTBF  -  TOTAL  BURNED  FUEL  ALL  SLW  ZONES  (g) 

TTBF(NZ)  -  TOTAL  BURNED  FUEL  FOR  ZONE  NZ  IN  MDM  (g) 


I  <  < 


1 
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i 


C  TTMEVAP  -  TOTAL  FUEL  MASS  EVAPORATED  ALL  ZONES  (g) 

C  TFMF(I)  -  TOTAL  FUEL  MASS  FRACTION  FOR  STORAGE  ARRAY  I 

C  ZBETA(NZ)  -  ZONE  MIXING  INTENSITY  (1/a) 

C  ZFMF(NZ)  -  ZONE  MEAN  TOTAL  FUEL  MASS  FRACTION 

C  ZMEVAP(NZ)  -  TOTAL  FUEL  MASS  EVAPORATED  IN  ZONE  NZ  (g) 

C  ZMV(NZ)  -  ZONE  FUEL  VAPOR  MASS  (g) 

C  ZMFBRN(NZ)  -  MOM  TOTAL  BURNED  FUEL  ZONE  NZ  DURING  TIMESTEP(g) 

C  ZMVAP(NZ)  -  RESIDUAL  EVAPORATED  FUEL  IN  ZONE  NZ  (g) 

C  ZNO(NZ)  -  MOM  TOTAL  NO  IN  ZONE  NZ  (g) 

C  ZQWALL(NZ)  -  ZONE  WALL  HEAT  TRANSFER  DURING  TIMESTEP  (cal) 

C  ZTEMP(NZ)  -  MOM  MEAN  ZONE  TEMPERATURE  ZONE  NZ  (K) 

C  ZTIME(NZ)  -  TIME  OF  LAST  MIXING  IN  ZONE  NZ  (S) 

C  ZVOL(NZ)  -  ZONE  VOLUME  (cc) 

C 

C 

C  PROPERTIES  OF  EACH  ELEMENT  ARE  STORED  IN  THESE  ARRAYS: 

C  I “PROPERTY  ARRAY  ID.  I  IS  RELATED  TO  AN  ELEMENT  NUMBER  BY 

C  I-NUM(NZ.N).  THIS  MAPPING  PROVIDES  EFFICIENT  MIXING 

C  AND  FLOW  PROPERTY  EXCHANGES  AND  REDUCES  PAGE  FAULTING. 

C 

C  ELEMT(I.I)  -  FUEL  FRACTION  OF  BURNT  FRACTION 

C  ELEMT(I ,2)  -  TEMPERATURE  (K) 

C  ELEMT(I .3)  -  BURNT  GAS  FRACTION  (BGFR;  INCLUDES  AIR) 

C  ELEMT(I ,4)  -  SPECIFIC  STANDARD  ENTHALPY  (CAL/G)  298K  DATUM 

C  ELEMT(I ,5)  -  SPECIFIC  HEAT  [CP]  (CAL/G-K) 

C  ELEMT(I .6)  -  MOLECULAR  WEIGHT 

C  ELMT(I.I)  -  NITRIC  OXIDE  MASS  FRACTION 

C  ELMT (1.2)  -  EFFECTIVE  AREA  OF  SOOT  (CM.*2) 

C  ELMT(I.3)  -  MASS  OF  SOOT  (G) 

C  EtMT(I .4)  -  TIME  OF  LAST  KINETIC  UPDATE  (SEC) 

C 

C  SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

C  ERRSET  (VAX/VMS  ERROR  CONTROL  ROUTINE) . EXIT  (VAX/VMS  FILE 

C  CLOSING  ROUT I NE), INPUT. MIXING. OUTPUT. SMZ, TABLE, UTHRMO 

C 

C  WRITTEN  BY  A. J. BROWN 
C 

PROGRAM  SMM 
INCLUDE  ’SLWCOM.FOR’ 

INCLUDE  1 SMZCOM. FOR ’ 

DIMENSION  NUM(NA.MAXELE) .TFMF(MAXELE) 

CHARACTER* 12  IDX 

COLMON  /ELEMTS/  NUM.TFMF 

PARAMETER (RBAR-1 . 9869 .CCAL-. 02421 725) 

C 

C  READ  IN  PROGRAM  BASIC  DATA 
C 

CALL  INPUT ( 1 ) 

C 

CALL  TABLE 
C 

CALL  ERRSET(70, .TRUE. . .FALSE. . .FALSE. , .FALSE. .15) 

C 

C  PRELIMINARY  CALCULATIONS 
C 

DEL-CATOM/ZH 

PHICON-(32.+28.013*PSI)*(DEL+.25)/(12.0*DEL+1 .008) 

L L I MT-PH I  LOW/ (PHI LOW+PH ICON) 


oooo  oooo  ooo 


ULIMT-PHIHI/(PHIHI+PHICON) 

CTOF  -  12. /(12.  +  1.008/DEL) 

CALL  UTHRMO(50. .TSAT.0. ,0. .HFUEL.CP.WTFUEL) 
SVFUEL-TSAT»R8AR/(50 . »CCAL»WTFUEL) 

HEVAP— HFG-CPF*  (TSAT-TFI ) 

INPUT  BASIC  LOM  DATA 
CALL  INPUT(2) 

PRINT  OUT  TITLE  PAGE.  INPUT  DATA  AND  RESULTS  OF  PRELIMINARY 
CALCULATIONS 

I F ( NPR I NT . EQ . 4 . OR . NPR I NT . EQ . 5 ) C ALL  OUTPUT ( 1 ) 

PRINTOUT  HEADINGS  FOR  VARIOUS  OUTPUT  FILES 

READ  NUMBER  OF  RUNS  INCLUDED  IN  OUTPUT  AVERAGES 

IF(NPRINT. EQ. 1 )THEN 
DO  50  L-1.NZONES 
WRITE(L,1001)ID 

50  CONTINUE 
END  IF 

ND«IFIX((CRKMAX— CA1 INJ)/CAD) 

WRITE(9 ,1002) 10 
WRITE( 1 9 , 1002) ID 
NAV-0 

IF(NOLD.GT.0)READ(24, 1002) IDX 
IF(NOLD.GT.0)READ(24,*)NAV 
NAVP1-NAV+1 
WRITE(19, *)NAVP1 
IF(NPRINT.NE.5)THEN 
WRITE( 15, 1003) ID 
WRITE( 1 6 , 1004) ID 
WRITE(17, 1005) ID 
WRITE(18, 1006) ID 
END  IF 

I F( ( NPR I NT . EQ . 3 . OR . NPR I NT . EQ . 4) . AND . NOLD . GT . 0) THEN 
WRITE(25, 1000)NAME 
WRITE(25, *)CA1 INJ .SWIRL, EGR 
WRITE(25, »)ND 
READ (26, 1000) NAME 
READ(26.«)CA1 INJ .SWIRL, EGR 
READ(26, «)ND 

ELSE  IF(NPRINT.EQ.3.0R.NPRINT.EQ.4)THEN 
WRITE(25, 1000)NAME 
WRITE(25,»)CA1 INJ, SWIRL, EGR 
WRITE(25, »)ND 
END  IF 

1000  FORMAT (A30) 

I F ( NPR I NT . N  E . 5 . AND . NAV . NE . 0 ) THEN 
READ(20, 1007) IDX 
REA0(21 .1008) IDX 
READ(22, 1009) IDX 
READ (23 , 1 01 0) IDX 
END  IF 

I F(NPRINT . NE. 2 . AND . NPRINT .NE. 3)WRITE( 1 3 , 1 002) ID 

1001  FORMAT(30X,A15,/,30X. 'ZONE  DATA’ ,/. IX, ’CRANK1 ,3X, 


o  o  o  o  o  o 


1  ’MELS' ,3X, ’NP’ ,4X, ’NN’ ,4X, ‘NEVAP* ,2X, ’MMIX’ ,$X. 

2  ’DELP(%) ’ ) 

1002  FORMAT(30X,A15,/) 

1003  FORMAT(30X,A15,/,25X, ‘ZONE  AVERAGE  TEMPERATURES’) 

1007  FORMAT ( 30X , A1 5 , /) 

1004  FORMAT(30X,A15,/,27X, ’ZONE  FUEL  FLOW  ERRORS’) 

1008  FORMAT(30X,A15,/) 

1005  FORMAT(30X.A15,/.30X. ’ZONE  AVERAGE  FMF' ) 

1009  FORMAT ( 30X ,A1 5 ,/) 

1006  FORMAT(30X,A15,/,30X, ’ZONE  FUEL  BURNED’) 

1010  FORMAT(30X.A15,/) 

. . . . 

c 

C  SET  CLOCKS  AND  INITIAL  PRESSURE,  INITIALIZE  VARIABLES. 

C 

TIME-(CA1 INJ+90 . )/(RPM»6 . ) 

TIMMD**-TIME 
TIMEPR-TIME 
CRANKD-CA1 INJ 
DT-0. 

DO  150  NZ-1.NA 
TMEVAP ( NZ ) —0 . 

TBF(NZ)— 0. 

TTBF(NZ)-0. 

ZTIME(NZ)-TIME 
ZMVAP(NZ)— 0 . 

150  CONTINUE 

DO  160  NF-1.NFLOW 
DFM(NF)-0. 

DFMV(NF)— 0 . 

DFMBF(NF)-0. 

NELS(NF)— 0 
160  CONTINUE 
NELS(NA)-0 
P-PSTART 
PMDM-PSTART 
NCYC-0 

DO  170  N-1 .MAXELE 
NUM(NA.N)»N 
170  CONTINUE 
NELTOT-0 

BEGIN  SIMULATION 

200  TIME-TIME+DT 

IF(TIME.GE.THATOM)  THEN 
TIME«TII*©M 
CRANK-T IME«RPM«6 90. 

CALL  SMZ 

WRITE  FLOW  ELEMENT  EXCHANGE  ••• 

IF(NPRINT . EQ. 1 )THEN 
DO  2110  NZ-1 , NZONES 

IF(ZVOL(NZ) . EQ . 0 . )GO  TO  2110 

WRITE(NZ,2101 )  CRANK , NELS(NZ) ,NP(NZ) ,NN(NZ) , 

1  NNEVAP(NZ) .NELMIX(NZ) .DELTAP 

2101  FORMAT ( IX , F6 . 2 . 2X, I4.2X, I4.3X. I4.3X, I4.2X, I4.3X.G12.3) 


NNEVAP(NZ)-0 

NELMIX(NZ)-0 

2110  CONTINUE 
DELTAP-0 . 

END  IF 

C» . ... 

c 

C  TIME  TO  EXIT? 

C 

2111  I F ( CRANK . GT . CRKMAX ) GO  TO  300 
END  IF 

C 

C  MIX  ZONES 
C 

205  DO  210  NZ-1.NA 

IF(NELS(NZ) . LT . 2)  GO  TO  210 

IF(TIME.GE. (ZTIME(NZ)+DTMIX(NZ)))  CALL  MIXING(NZ) 

210  CONTINUE 
GO  TO  200 
300  CALL  EXIT 
END 

. . . . . . . . . . * . «... 

. . . . . . . . . . 

c 

C  SUBROUTINE  SMZ 
C 

C  PURPOSE 
C 

C  COMPLETES  PREVIOUS  CYCLE.  STARTS  NEXT. 

C  CALLS  MDM  INPUT.  CONTROLS  FLOW  OF 

C  ELEMENTS  TO  THE  SMZ’S.  HANDLES  CONSERVATION  OF  COMPONENT 

C  MASS.  ENERGY  AND  VOLUME.  CALCULATES  ZONE  MIXING  TIMES. 

C 

C 

C  VARIABLES  AND  ARRAYS  (SEE  SMW) 

C 

SUBROUTINE  SMZ 
C 

C  DECLARATIONS  AND  COMMON  BLOCKS 
C 

INCLUDE  •SWMCOM.FOR’ 

INCLUDE  'SMZCOM. FOR’ 

PARAMETER(CCAL-. 0242 1725) 

DIMENSION  ELMT(MAXELE,4) , ELEMT(MAXELE, 6) 

DIMENSION  NUM(NA.MAXELE) , TFMF(MAXELE) 

COfcWON  /ELEMT1/  ELEMT 
COMMON  /ELEMT2/  ELMT 
COMmION  /ELEMT 6/  NUM.TFMF 
C 

C  IF  THIS  IS  THE  START  OF  CYCLE  1? 

C 

I F ( NCYC . EQ . 0 ) THEN 
CALL  INPUT (3) 

NCYC-1 

NELAIR-IFIX(ZMA/EUW)  +  1 
GO  TO  191 


C  FINISH  CYCLE 

C 

C 

C  CALCULATE  HEAT  TRANSFER  FOR  EACH  ELEMENT. 

C 

DO  100  N7-1.N20NES 

IF(NELS(NZ) . LT. 1 )GO  TO  100 
CALL  QWALL(NZ) 

DO  50  LI-1 .NELS(NZ) 

I-NUM(NZ.LI) 

C 

C  UPDATE  SOOT.  NO,  PREP.  COMBUSTION. 

C 

IF( (TIME— ELMT (I,4)).LT.DTKIN)G0  TO  50 
CALL  PROP(TIME.NZ.I) 

50  CONTINUE 
100  CONTINUE 
C 

C  UPDATE  PREP  AND  COMBUSTION  FOR  ACTIVE  AIR  ZONE  ELEMENTS 
C 

DO  105  LI-1 .NELS(NA) 

I-NUM(NA.LI) 

DTPROP-T I ME-ELMT ( I , 4) 

IF(OTPROP.LT.OTKIN)GO  TO  105 

ELMT( I . 4)— TIME 

CALL  PREPUP(DTPROP.I) 

CALL  CMBUST (NA, I ,0) 

105  CONTINUE 
C 

C  CONSERVE  VOLUME.  CALCULATE  NEW  TEMPERATURES  AND  PRESSURE. 
C 

CALL  VOL 
C 

. . ««•**• 

C 

C  UPDATE  TOTALS 
C 

DO  110  NZ-1 , NA 

TTBF(NZ)«TTBF(NZ)+ZMFBRN(NZ) 

110  CONTINUE 
C 

C  TIME  TO  EXIT? 

C 

IF (CRANK. LE.CRKMAX)  GO  TO  150 

IF (NPRINT . EQ. 4 .OR . NPRINT. EQ . 5)CALL  OUTPUT(8) 

RETURN 

C 

C  TIME  TO  WRITE  OUTPUT? 

C 

150  IF(TIME. LT. (TIMEPR+DTPR) )  GO  TO  155 
TIMEPR-TIME 
CALL  OUTPUT (2) 

C 

C  TIME  TO  WRITE  DISTRIBUTION? 

C 

155  IF(CRANK . LT . (CRANKD+CAD) .OR . NPRINT . EQ. 2 . OR . 

1  NPRINT. EQ.5)GO  TO  190 
CRANKD-CRANK 


i 
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CALL  OISTRIB 
C 

C  END  OF  CYCLE  ******* 

C 

C*» . *»«*»** . . . . . . . . 

C 

C  START  NEW  CYCLE  .... 

C 

190  CALL  INPUT (3) 

NCYC-NCYC+1 

C 

C  CALCULATE  NET  FLOWS  IN  EACH  DIRECTION. 

C 

191  DO  200  NF-1 .NFLOW 

FW(NF)-FM(NF)+DFM(NF) 

DFM(NF)-0. 

FMV(NF)«FMV(NF)+DFMV(NF) 

DFMV(NF)— 0. 

FMBF(NF)«FM8F(NF)+DFMBF(NF) 

DFM8F(NF)«0. 

200  CONTINUE 

DO  250  NF-1. NFLOW 

IF(ZVOL(NF) . LE.0. )THEN 
NP(NF)«N£LS(NF) 

NN(NF)-0. 

ELSE  IF(FM(NF).CT.0.)  THEN 
NP(NF)— IFIX(FM(NF)/ELV*«1) 

NN(NF)-0 

ELSE  IF(FM(NF).LT.O.)  THEN 
NP(NF)— 0 

NN(NF)-IFIX(-FM(NF)/EUA<) 

ELSE 

NP(NF)— 0 
NN(NF)— 0 
END  IF 
250  CONTINUE 
C 

CALL  FLOW 
C 

C  EVAPORATE  THE  FUEL.  ADD  VAPOR  ELEMENTS  TO  THE  ZONES. 

C 

DO  300  NZ-1 .NA 
C 

C  CLEAN  UP  THE  CLOSING  OF  A  ZONE 
C 

I F(ZVOL(NZ) .  i_E  .  0  . . AND. NZ.NE.NA) THEN 
ZMEVAP(NZ+1 )-ZMEVAP(NZ+1 )+ZMEVAP(NZ) 

ZMVAP(NZ+1 )«ZMVAP(NZ+1 )+ZMVAP(NZ) 

ZMEVAP(NZ)-0 . 

ZMVAP(NZ)— 0 . 

GO  TO  300 
END  IF 
C 

C  UPDATE  EVAPORATION 
C 

tmevap(nz)-tmevap(nz>*^mev>- 'nz) 

NNEVAP(NZ)— I  F I  X  (  TMEV.  .LAW)- 1  F I X (  (TMEVAP (NZ)- 

1  ZMEVAP(NZ))/EL)A<) 


I 


o  o  o  o  o  o 
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ZMEVAP ( NZ ) -ZMEVAP ( NZ ) +ZMVAP ( NZ ) 
ZMVAP(NZ)-0. 

ADO  VAPOR  ELEMENTS  TO  ZONES 

IF(NZ. EQ.NA)THEN 
NELX-NELAIR 
ELSE 

NELX-NELS(NZ) 

END  IF 

IF(ZMEVAP(NZ) .GT. ELMM. AND. NELX.GT.1) THEN 
CALL  EVAP(NZ) 

ELSE 

ZMVAP ( NZ ) -ZMEVAP ( NZ ) 

END  IF 
500  CONTINUE 

CALCULATE  NEW  DTMIX 


DT-T I  fcWDM-T  I  ME 
DO  400  NZ-1 , NA 

IF(NELS(NZ) . LT .0)NELS(NZ)-0 
IF(ZBETA(NZ) . LE.0. )GO  TO  400 
IF(NELS(NZ).LT.2)GO  TO  400 
DTMIX(NZ)-1 ./(ZBETA(NZ).NELS(NZ)) 

DT-AMIN1 (DT .DTMIX (NZ)) 

400  CONTINUE 
RETURN 
END 

. . . . * . . . . . 

. . . . . . . . . 

C  SUBROUTINE  SOOT(DTPROP ,02. I )  -  WANG  MODEL 
C 

C  PURPOSE 

C 

C  TO  CALCULATE  THE  FORMATION  OF  SOOT  DUE  TO  PYROLYSIS  OF 

C  FUEL  VAPOR. 

C 

C  METHOD 

C 

C  THE  SOOT  FORMATION  RATE  IS  CALCULATED  VIA  THE  RELATIONS 

C  OF  WANG, MATULA, AND  FARMER  DEVELOPED  FOR  SYNTHETIC  FUELS. 

C  (20TH  SYMPOSIUM  ON  COMBUSTION.  THE  COMBUSTION  INSTITUTE, 

C  1981.  PG.  1149.) 

C  IMPORTANT  PARAMETERS  ARE  [HC] ,  [02],  AND  TEMPERATURE. 

C 

c 


C  VARIABLES 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


(SEE  SfcW) 

UFUELF  -  UNBURNED  FUEL  FRACTION 
FUELC  -  FUEL  CARBON  IN  ELEMENT  (g) 

HCCONC  -  UNBURNED  FUEL  CONCENTRATION,  C2H2,  G-MOLE/CC 


o  o  o  o  a  o 


C  ARRAYS 

C  (SEE  SVW) 

C 

C  COMMENTS 
C 

c  PRODUCTION  OP  MORE  SOOT  THAN  THERE  IS  PUEL  CARBON  IN 

C  A  GIVEN  ELEMENT  IS  NOT  ALLOWED. 

C 

SUBROUTINE  SOOT(DTPROP ,02, I ) 

INCLUDE  'SLfcCOM. POR’ 

REAL  MFORM 

DIMENSION  ELEMT(MAXELE,6) , ELMT(MAXELE, 4) 

COMMON  /ELEMT1/  ELEMT 
COMMON  /ELEMT2/  ELMT 

PARAMETER(RH0-1 .8.RUNIV-1 . 98 .CCAL-. 0242) 

C 

C  SOOT  FORMATION  RATE  CALCULATIONS 
C 

IF(ELEMT(I .2)  .LE.  300. )G0  TO  120 
UFUELF-1 .-ELEMT(I,3) 

FUELC«UFUELF»ELVM«CTOF-ELMT(I ,3) 

I F( PUELC . LE . 0 . ) FUELC-0 . 

SV— RUN IV* ELEMT ( I , 2)/(P*CCAL»ELEMT( I , S) ) 
HCCONC-UFUELF/(SV«WTFUEL) 

02C0NC-02/( ELEMT ( I . 6) »SV) 

TM-1800. 

IP(ELEMT(I ,2) .LE.TM)THEN 
GAfcMA-0. 

ELSE 

GAMMA-1 . 

TGAM-1 ./ELEMT(I ,2)-1 ./TM 
END  IF 

XCONC— 1 ./(ELEMT ( I , 6) »SV)— HCC0NC-O2C0NC 
DSFDT«S00TC»5 . 55E1 6 * EXP (-4 1 800 ./(RUN IV* ELEMT ( I , 2) )— 

1  GAXiMA*481 00 .  *TGAM/RUNIV)»((1 . 54»HCC0NC)*»2.59)» 

2  ( XCONC* * . 13)/(02C0NC»» . 71 ) 

DSFDTMX-SOOTC* 1 . 04E1 3*  EXP (-29700 . /(RUN IV*  ELEMT (1 ,2))+ 

1  GAAMA*39700.*TGAM/RUNIV)*((1 ,54*HCC0NC)**1 .48)* 

2  (XCONC** .24) 

I F(OSPOT . GT . OSFOTMX) DSFOT-OSFDTMX 

SOOT  MASS  CHANGE 

MFORM-DS POT • DTPROP • E  UW  * SV 
IF(MFORM. LE.0. )  GO  TO  120 
IF(MFORM.LE.FUELC)  GO  TO  30 
MFORM  -  FUELC 
ELMT(I ,3)-ELMT(I ,3)+MF0RM 

SOOT  SURFACE  AREA  CHANGE 

ELMT ( I , 2)-ELMT ( I , 2)+3 . *MF0RM/(RH0*S0TSIZ) 

120  RETURN 
END 

. . * . . . . . * . 

. . . . . . . . 

C 

C  SUBROUTINE  S0RT1 
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C  PURPOSE 

C  SORTS  ZONE  ELEMENTS  INTO  3  GROUPS:  THOSE  CONTAINING  FUEL 
C  VAPOR,  THOSE  WITH  SIGNIFICANT  BURNED  FUEL  AND  OTHER.  FOR 
C  ZONE  NF  OR  NZ. 

C 

C  VARIABLES  AND  ARRAYS  (ALSO  SEE  Sl*0 
C  NEL1  -  NUMBER  OF  ELEMENTS  IN  GROUP  1 

C  NEL2  -  NUMBER  OF  ELEMENTS  IN  GROUP  2 

C  NEL3  -  NUMBER  OF  REMAINING  ELEMENTS 
C  NEXT1  -  ARRAY  OF  ELEMENTS  IN  GROUP  1 

C  NEXT2  -  ARRAY  OF  ELEMENTS  IN  GROUP  2 

C  NEXT3  -  ARRAY  OF  OTHER  ELEMENTS 

C  TFMFS  -  LOWER  LIMIT  FOR  MASS  FRACTION  OF  BURNED  FUEL  IN  GROUP  2. 
C  STOICHIOMETRIC  TFMF  EXCEPT  FOR  VERY  LEAN  ZONES  WHERE 

C  TFMFS  IS  SET  TO  LLIMT . 


SUBROUTINE  SORT1 (NZ) 

INCLUDE  ' SMMCOM . FOR ' 

INCLUDE  ’SMZCOM. FOR' 

DIMENSION  NUM(NA.MAXELE),TFMF(MAXELE) 

DIMENSION  NEXT1 (MAXELE) ,NEXT2(MAX£LE) ,NEXT3(MAXELE) 
DIMENSION  ELEMT(MAXEL£,6) 

COMMON  /ELEMT1/  ELEMT 
COMMON  /ELEMT 6/  NUM.TFMF 

COMMON  /SORT/  NEL1 .NEL2.NEL3.NEXT1 .NEXT2.NEXT3 

NEL1-0 

NEL2-0 

NEL3-0 

-  TFMFS-1 ./(I .+PHICON) 

IF(ZFMF(NZ)  .  LT.  TFMFS)  TFMFS**LLIMT 
IF(NELS(NZ).LE.0)GO  TO  500 
200  DO  400  L-1 .NELS(NZ) 

LI-NUM(NZ.L) 

IF(TFMF(L1).GT.ULIMT)THEN 

NEL1-NEL1+1 

NEXT1(NEL1)-L 

ELSE  IF(ELEMT(L1 . 3)»ELEMT(L1 . 1 ) .GT. TFMFS) THEN 
NEL2-NEL2+1 
NEXT2(NEL2)-L 
ELSE 

NEL3-NEL3+1 
NEXT3(NEL3)-L 
ENO  IF 
400  CONTINUE 
500  RETURN 
ENO 


C  SUBROUTINE  S0RT2 
C 

C  PURPOSE 

C  SORTS  ZONE  ELEMENTS  INTO  3  GROUPS:  THOSE  CONTAINING  FUEL 
C  VAPOR,  THOSE  WITH  SIGNIFICANT  BURNED  FUEL  AND  OTHER.  FOR 
C  ZONE  NFP1 . 

C 

C  VARIABLES  AND  ARRAYS  (ALSO  SEE  SLW) 
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C  NEL4  -  NUMBER  OF  ELEMENTS  IN  GROUP  1 

C  NEL5  -  NUM8ER  OF  ELEMENTS  IN  GROUP  2 

C  NEL6  -  NUMBER  OF  REMAINING  ELEMENTS 
C  NEXT 4  -  ARRAY  OF  ELEMENTS  IN  GROUP  1 

C  NEXT5  -  ARRAY  OF  ELEMENTS  IN  GROUP  2 

C  NEXT6  -  ARRAY  OF  OTHER  ELEMENTS 

C  TFMFS  -  LOWER  LIMIT  FOR  MASS  FRACTION  OF  BURNED  FUEL  IN  GROUP  2. 
C  STOICHIOMETRIC  TFMF  EXCEPT  FOR  VERY  LEAN  ZONES  WHERE 

C  TFMFS  IS  SET  TO  LLIMT. 

C 

C 

SUBROUTINE  SORT2(NZ) 

INCLUDE  ‘SMMCOM. FOR’ 

INCLUDE  ’ SMZCOM . FOR ’ 

DIMENSION  NUM(NA.MAXELE) , TFMF(MAXELE) 

DIMENSION  NEXT4(MAXELE) ,NEXT5(MAXELE) ,NEXT6(MAXELE) 

DIMENSION  ELEMT (MAXELE , 6) 

COMMON  /ELEMT 1/  ELEMT 
COMMON  /ELEMT6/  NUM.TFMF 

CCAWOll  /SORTX/  NEL4.NEL5.NEL6.NEXT4.NEXT5.NEXT6 

NEL4-0 

NEL5-0 

NEL6-0 

TFMFS-1 ./( 1 .+PHICON) 

IF(ZFMF(NZ).LT.TFMFS)TFMFS-LLIMT 
IF(NELS(NZ).LE.0)GO  TO  500 
200  DO  400  L-I.NELS(NZ) 

LI-NUM(NZ.L) 

IF(TFMF(L1).GT.ULIMT)THEN 

NEL4-NEL4+1 

NEXT4(NEL4)-L 

ELSE  IF(ELEMT(L1 .3) *ELEMT(L1 . 1 ) .GT. TFMFS) THEN 
NEL5-NEL5+1 
NEXT5(NEL5)«L 
ELSE 

NEL6— NEL6+1 
NEXT6(NEL6)-L 
END  IF 
400  CONTINUE 

500  RETURN 

END 

C.... .............. . . 

. . . . . . . . . 

c 

C  SUBROUTINE  SPECNO 

C 

C  PURPOSE 

C  CALCULATES  EQUILIBRIUM  SPECIES  CONCENTRATION  NEEDED  FOR 

C  NO  CALCULATION 

C 

C  DESCRIPTION  OF  PARAMETERS 


C 

PARAMETER 

INPUT 

OUTPUT 

DESCRIPTION 

c 

P 

YES 

NO 

PRESSURE  (ATM) 

c 

T 

YES 

NO 

TEMPERATURE  (K) 

c 

FR 

YES 

NO 

FUEL  FRACTION  OF 

BURNED  PRODUCTS 

c 

U1 

NO 

YES 

EQUILIBRIUM  MOLE 

FRACTION 

C 

— 

— 

— 

OF  (NO) 

U2 

NO 

YES 

EQUILIBRIUM  MOLE  FRACTION 

— 

— 

— 

OF  (0) • (N2) 

U3 

NO 

YES 

K1-R1/(R2+R3)  (SEE  REPORT) 

SUBROUTINE  SPECNO  (P,T,FR,U1 ,U2,U3) 

COLMON/FU LAR/C ATOM . D  E  L . PS I . PH I CON 
COMMON/TABLE5/A(2592) ,B(2592) .0(2592) 

DIMENSION  AP(6),AT(16) , APHI (27) 

DATA  AP  /I . .10. .30. ,50. .75. .100./ 

DATA  AT  /1700. ,1800. ,1900. ,2000. ,2100. ,2200. ,2300. ,2400. , 2500 . 
1  2600 . . 2700 . . 2800 . , 2900 . , 3000 . , 3200 . , 3500 ./ 

DATA  APHI  /0.0,. 2. .4. .6. .8. .9. .95.1. ,1.05, 1.1, 1.2, 1.3, 1.4, 1.5, 
1  1.6, 1.8, 2.. 2. 2. 2. 4, 2. 6,2. 8, 3.. 3. 2, 3. 4. 3. 6, 3. 8. 4./ 

PA-P 

TA-T 

PHI-PHIC0N»FR/(1 . 0— FR) 

PH I A— PH I 

IF(PA.LE.1 .0)PA-1 .0 
IF(PA.GE.100.)PA-100. 

IF(TA.LE.1700.)TA-1700. 

I F ( TA . GE . 3500 . ) TA-3500 . 

IF(PHIA.LE.0.0)PHIA-0.0 

IF(PHIA.GE.4.0)PHIA-4.0 

1-1 

IF(PA. LT. 10. )G0  TO  10 
-  1-2 

IF(PA. LT.30. )G0  TO  10 
1-3 

IF(PA. LT.50. )G0  TO  10 
1-4 

IF(PA. LT.75. )G0  TO  10 
1-5 

10  PAI-AP(I) 

PA2-AP( 1+1 ) 

J— IFIX(PHIA/.2)+1 
IF(PHIA. LT. .9)G0T0  20 
J-6 

I F(PHIA. LT . 0. 95) GOTO  20 
J-IFIX( (PHIA-. 95)/. 05)+7 
IF(PHIA.LT.1 .1 )GOTO  20 
J— IFIX((PHIA— 1 . 1 )/. 1 )+10 
IF(PHIA. LT . 1 . 6) GOTO  20 
J-IFIX( (PHIA— 1 .6)/.2)+15 
I F(PHIA. LT . 4. 0)GOTO  20 
J-26 

20  PHII-APHI(J) 

PHI2-APHI (J+1 ) 

K-IFIX((TA-1700.)/100.)+1 
I  F(TA.  GE. 3000. .AND.TA.LT. 3200. )K-1 4 
I F(TA.GE. 3200 . .AND . TA. LE. 3500 . )K— 1 5 
30  TAI-AT(K) 

TA2-AT(K+1 ) 
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ff 


C-: 

w\‘ 

ii 

i 


c 

IU1-I »432+J» 1 6+K+1 
IU2-I *432+( J— 1 ) • 1 6+K+1 
IU3—I »432+( J-1 ) • 1 6+K 
IU4-I»432+J»16+K 
IU5«( 1-1 ) *432+J • 1 6+K+1 
IU6-( 1-1 ) »432+( J-1 ) « 1 6+K+1 
IU7-( 1-1 ) »432+( J-1 ) *1 6+K 
IU8-(I-1)*432+J»16+K 
C 

R»(-PHI 1+PH1+PH1-PHI2)/(PH12-PHI 1 ) 
S**(-TA1+TA+TA-TA2)/(TA2-TA1 ) 
V-(-PA1+PA+PA-PA2)/(PA2-PA1 ) 

C 

HI •( 1 . +R) * ( 1 .+S) * ( 1 -+V) 

H2-(1 . -R)*(1.+S)*(1.+V) 

H3— ( 1 ,-R)»(1 .-S) • ( 1 .+V) 

H4-(1 .+R) • ( 1 S)*(1 .+V) 

H5-(1 .+R)«(1 .+S)*(1 .-V) 

H6-(1 - — R ) * ( 1 .+S)*(1 .-V) 

H7-(1 .-R)»(1 .-S)*(1 .-V) 

H8— (1 .+R)»(1 S) *  0 .— V) 

C 

U1— 0.125»(H1*A(IU1 )+H2*A( IU2)+H3»A( IU3)+H4*A( IU4)+ 
iH5»A( IU5)+H6«A( IU6)+H7*A( IU7)+H8*A( IU8) ) 

UI-EXP(UI) 

U2«0.125«(H1*B(IU1)+H2»B(IU2)+H3*B(IU3)+H4.B(IU4)+ 
fcH5«B( IU5)+H6»B( IU6)+H7»B( IU7)+H8*B( IU8)  ) 

U2-EXP(U2) 

-  U3=0. 12S* (HI »C( IU1 )+H2*C( IU2)+H3»C( IU3)+H4»C(IU4)+ 
kH5«C( IU5)+H6»C( IU6)+H7  *C( IU7)+H8»C( IU8) ) 

U3— EXP(U3) 

C 

RETURN 

END 


c 

C  SUBROUTINE  SPEC02 

•“  c 

C  PURPOSE 

C  CALCULATES  EQUILIBRIUM  SPECIES  CONCENTRATION  OF 

C  OXYGEN  MOLECULE  IN  BURNED  PRODUCTS  OF  COMBUSTION 

^  C 

C  DESCRIPTION  OF  PARAMETERS 


c 

r* 

PARAMETER 

INPUT 

OUTPUT 

DESCRIPTION 

•v  W 

>  c 

P 

YES 

NO 

PRESSURE  (ATM) 

c 

T 

YES 

NO 

TEMPERATURE  'K) 

c 

FR 

YES 

NO 

FUEL  FRACT ’ ON  OF  BURNED  PRODUCTS 

c 

U4 

NO 

YES 

EQUILIBRIUM  MOLE  FRACTION 

1  ‘N  c 

— 

— 

— 

OF  (02) 

C 


SUBROUTINE  SPEC02  (P.T.FR.U4) 
COKMON/FULAR/CATOM,DEL,PSI  .PHICON 
COM*CN/TABLE6/D(2592) ,E(2592) 
DIMENSION  AP(6),AT(16), APHI (27) 
DATA  AP  /I . . 1 0 . , 30 . . 50 . , 75 . , 1 00 . / 


B 


1 
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DATA  AT  /1700. ,1800. .1900. ,2000. ,2100. .2200. .2300. ,2400. ,2500. , 
1  2600 . , 2700 . . 2800 . , 2900 . . 3000 . , 3200 . , 3500 ./ 

DATA  APHI  /0.0,. 2. .4, .6. .8. .9. .95,1. .1.05, 1.1, 1.2.1. 3. 1.4. 1.5, 

1  1.6, 1.8, 2., 2. 2. 2. 4, 2. 6, 2. 8, 3., 3. 2, 3. 4, 3. 6, 3. 8. 4./ 

C 

PA-P 

TA-T 

PHI-PHIC0N*FR/(1 .0-FR) 

PHIA-PHI 

C 

IF(PA.LE.1 .0)PA-1 .0 
IF(PA.GE.100.)PA«100. 

I F(TA. LE. 1 700 . )TA-1 700 . 

IF(TA.GE.3500.)TA-3500. 

IF(PHIA.LE.0.0)PHIA-0.0 

IF(PHIA.GE.4.0)PHIA-4.0 

C 

1-1 

IF(PA. LT. 10. )G0  TO  10 
1-2 

IF(PA. LT.30. )GO  TO  10 
1-3 

IF(PA. LT. 50. )GO  TO  10 
1-4 

IF(PA. LT.75. )GO  TO  10 
1-5 

10  PAI-AP(I) 

PA2-AP( 1+1 ) 

C 

-  J-IFIX(PHIA/.2)+1 
IF (PHI A. LT.0 . 9)GOTO  20 
J— 6 

IF(PHIA.LT.0.95)GOTO  20 
J-IFIX((PHIA-.95)/.05)+7 
IF(PHIA. LT. 1 . 1 jGOTO  20 
J— IFIX((PHIA— 1 . 1 )/. 1 )+1 0 
IF(PHIA. LT . 1 . 6) GOTO  20 
J— IFIX( (PHIA— 1 . 6)/. 2)+1 5 
IF(PHIA. LT. 4. 0)GOTO  20 
J-26 

20  PHI 1-APHI (J) 

PHI2-APHI (  J+1 ) 

C 

K-IFIX((TA— 1700.)/100.)+1 
IF(TA.GE.3000. . ANO.TA.LT. 3200. )K-1 4 
IF(TA. GE. 3200. .AND. TA.LE. 3500. )K-15 
30  TAI-AT(K) 

TA2-AT(K+1) 

C 

IU1-I »432+J* 1 6+K+1 
IU2-I »432+( J-1 ) • 1 6+K+1 
IU3— I«432+( J— 1 ) *16+K 
IU4— I »432+J« 1 6+K 
IU5— ( 1-1 ) *432+J • 1 6+K+1 
IU6— ( I— 1 )«432+( J- , ) »1 6+K+1 
IU7-( 1—1 ) *432+ (J-1 ) • 1 6+K 
IU8— ( 1—1 ) »432+J ♦ 1 6+K 
C 


■ v>»v.»v.v v 
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R— (— PHI 1+PHI+PHI— PHI2)/(PHI2-PHI 1 ) 

S- (-TA 1 +TA+TA-TA2 ) / ( TA2-TA 1 ) 

V«(-PA1+PA+PA-PA2)/(PA2-PA1 ) 

C 

H1-(1.+R)*(1.+S)*(1.+V) 

H2-(1 .-R)*(1 .+S)»(1 .+V) 

H3-(1 ,-R)»(1 ,-S)*(1 .+V) 

H4-(1.+R)»(1.-S)*(1.+V) 

H5-(1.+R)*(1.+S)*(1.-V) 

H6— ( 1 .— R) • ( 1 .+S) • ( 1 .— V) 

H7-(1.-R)*(1.-S)*(1.-V) 

H8-(1.+R)*(1.-S)»(1.-V) 

C 

U4-0.125»(H1»O(IU1)+H2»D(IU2)+H3«D(IU3)+H4.D(IUA)+ 

*H5»D( IU5)+H6*D( IU6)+H7«D( IU7)+HS»D( IU8) ) 

U4-EXP(U4) 

C 

RETURN 

END 

. . . . . . 

. . * . . . . . . 

c 

C  SUBROUTINE  TABLE 

C 

C  PURPOSE 

C  READS  AND  STORES  A  TABLE  OF  THERMODYNAMIC  PROPERTIES  OF 

C  UNBURNED  MIXTURE  AND  BURNED  PRODUCTS  AS  WELL  AS  EQUILIBRIUM 

C  SPE«IES  CONCENTRATION  OF  BURNED  PRODUCTS. 

C 

-  SUBROUTINE  TABLE 
COMMON/FULAR/CATOM . DEL . PS I , PHICON 

C0MM0N/TA8LE1/UHTBL(96) ,UCTBL(96) ,UWTBL(96) ,UHFTBL(96) 
C0fcW0N/TABLE3/BHTBL(2688) ,BCT8L(2688) ,BWTBL(2688) ,BHFTBL(2688) 
COMMON/TABLE5/A(2592) . B(2592) ,C(2592) 

COfcWON/TABLE6/D(2592) . E(2592) 

C 

READ(12.10)(UHT8L(I),I-1 ,96) 

READ(12.20)(UCTBL(I),I-1 ,96) 

READ(12.30)(UWTBL(I),I-I ,96) 

READ(  12 , 10)  (UHFTBL( I)  ,  I**1  ,96) 

10  FORMAT (2X.10F7.1) 

20  FORMAT (2X, 10F7.3) 

30  FORMAT(2X, 10F7 .2) 

C 

READ(12.10)(BHTBL(I),I-1 .2688) 

READ(12.20)(BCTBL(I),I-1 ,2688) 

READ( 12,30) (8WTBL( I) , I«1 ,2688) 

READ(12,10)(BHFTBL(I), 1-1 ,2688) 

READ(12,40)(A(I),I-1 ,2592) 

READ(12,40)(B(I), 1-1 .2592) 

READ( 1 2,40)(C(I),I-1 .2592) 

READ ( 1 2, 40) (D(I), 1-1, 2592) 

READ( 12.40)(E(I),I— 1, 2592) 

40  FORMAT (5(1E14.7,1X)) 

RETURN 

END 


C 

C 


oooooooooo 


SUBROUTINE  UTEMP 


PURPOSE 

GIVEN  P,  H,  PR.  AND  BGFR  OF  UNBURNED  MIXTURE,  CALCULATES  T 


DESCRIPTION  OF  PARAMETERS 


PARAMETER 

INPUT 

OUTPUT 

TGUESS 

YES 

NO 

FR 

YES 

NO 

BGFR 

YES 

NO 

ENTHLP 

YES 

NO 

T 

NO 

YES 

J  ERMAX 

YES 

NO 

* 

— 

— 

MAXITS 

YES 

NO 

— 

— 

:  n 

IDENTIFICATION 

■N 

YES 

NO 

D  NZ 

YES 

NO 

:  WTBG 

NO 

YES 

DESCRIPTION 

INITIAL  GUESS  FOR  TEMPERATURE  (K) 
SEE  REMARKS 
SEE  REMARKS 
ENTHALPY  (CAL/G) 

CALCULATED  TEMPERATURE  (K) 
RELATIVE  ERROR  TOLERANCE  (SEE 
SUBROUTINES  UTEMP  AND  BTEMP) 
MAXIMUM  NUMBER  OF  ITERATIONS  (SEE 
SUBROUTINES  UTEMP  AND  BTEMP) 
ELEMENT  PROPERTY  ARRAY 

NUMBER 

ZONE  IDENTIFICATION  NUMBER 
MOLECULAR  WT  OF  BURNED  GAS 


C  REMARKS 
C  1 .-BGFR 

C  - 

FR 


FOR  EXAMPLE: 

1)  FOR  PURE  AIR 

2)  FOR  PURE  FUEL  VAPOR 

3)  FOR  A  MIXTURE  OF 

10?!  FUEL  VAPOR  AND 

C  205!  BURNED  PRODUCTS  WITH 

C  FUEL  FRACTION  OF  0.08  AND 

C  70S!  AIR 

C 

C  THEREFORE 

C 

C 


-  FRACTION  OF  FUEL  VAPOR  IN  THE 
MIXTURE 

-  FUEL  FRACTION  OF  BURNED  PRODUCTS 
IN  MIXTURE  TIMES  MASS  FRACTION  OF 
8URNED  PROOUCTS  IN  THE  MIXTURE. 
THEN.  DIVIDED  BY  "BGFR". 

"BGFR" . 

FR-0.0  AND  BGFR-1.0 

FR-0.0  AND  BG FR-0.0 


FR-.20*.08/(.20+.70)«0.0155  AND 

BGFR-. 20+. 70-. 90 

FR-0.0 155  AND  BGFR-0.90 


SUBROUTINE  UTEMP  (TGUESS , FR , BGFR, ENTHLP . T . N) 
INCLUDE  ' SVWCOM . FOR ’ 

DIMENSION  ELEMT(MAXELE,6) 

COMMON  /ELEMT1/  ELEMT 
T-TGUESS 

DO  10  I-1.MAXITS 

CALL  UTHRMO  (P. T , FR . BGFR , AHG .CSUBP ,WT) 
TTOLD-T 

T-T+(ENTHLP-AHG)/( CSUBP) 

IF(A8S((T-TTOLD)/7) . LE . ERMAX)GOTO  20 
10  CONTINUE 

CALL  OUTPUT (9) 

20  ELEMT (N,5)-CSUBP 
ELEMT (N,6)-WT 


RETURN 

END 


C. 

C» 

C 

C 

C 

C 

C 

C 

C 


SUBROUTINE  UTHRMO 
PURPOSE 

CALCULATES  THERMODYNAMIC  PROPERTIES  OF  UNBURNED  MIXTURE 
USAGE 

CALL  UTHRMO  (P,T . FR . BGFR , H .CP , WT) 


C 
C 

C  DESCRIPTION  OF  PARAMETERS 


c 

PARAMETER 

INPUT  OUTPUT 

c 

c 

P 

YES 

NO 

c 

T 

YES 

NO 

c 

FR 

YES 

NO 

c 

BGFR 

YES 

NO 

c 

H 

NO 

YES 

c 

CP 

NO 

YES 

c 

WT 

NO 

YES 

c 

c 

c 

REMARKS 

c 

1 .-BGFR 

c 

c 

FR 

c 

— 

c 

— 

c 

— 

c 

— 

c 

FOR  EXAMPLE: 

c 

1)  FOR  PURE 

AIR 

c 

2)  FOR  PURE 

FUEL 

VAPOR 

c 

3)  FOR  A  MIXTURE 

OF 

c 

10%  FUEL 

VAPOR  AND 

c 

20%  BURNED  PROOUCTS  WITH 

c 

FUEL  FRACTION 

OF  0.08  AND 

c 

70%  AIR 

C 

C  THEREFORE 

C 

C 


DESCRIPTION 

PRESSURE  (ATM) 

TEMPERATURE  (K) 

SEE  REMARKS 
SEE  REMARKS 

ENTHALPY  OF  MIXTURE  (CAL/G) 

HEAT  CAPACITY  AT  CONSTANT  PRESSURE 
OF  MIXTURE  (CAL/G  K) 

MOLECULAR  WEIGHT  OF  MIXTURE  (G/MOLE) 


-  FRACTION  OF  FUEL  VAPOR  IN  THE 
MIXTURE 

-  FUEL  FRACTION  OF  BURNED  PRODUCTS 
IN  MIXTURE  TIMES  MASS  FRACTION  OF 
BURNED  PRODUCTS  IN  THE  MIXTURE. 
THEN,  DIVIDED  BY  "BGFR". 

"BGFR" . 

FR-0.0  '  AND  BGFR-1.0 

FR-0.0  AND  BG FR-0.0 


FR-.20* . 08/( ,20+.70)-0.0155  AND 

BCFR-.2O+.70-.90 

FR-0.0 155  AND  BGFR-O.90 


C  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
C  BTHRMO 

C 


C 

C 

C- 


SUBROUTINE  UTHRMO  (P. T . FR , BGFR .H.CP ,WT) 
COkAA»/TABLE1/UHT8L(96) ,UCTBL(96) ,UWTBL(96) ,UHFTBL(96) 
COWON/FULAR/CATOM .  DEL .  PS  I ,  PH  I  CON 
DIMENSION  AT (8) . APHI (12),FCF(6) 

OATA  AT  /300. .500. .700. .900. ,1100. ,1500.  ,1500. ,1700./ 
DATA  APHI/0. 0,0.8, .9,1 .0.1 .1 ,1.2,1 .5,2. ,2.5,3. ,3.5,4./ 


PHI-FR*PHIC0N/(1 ,-FR) 

PHIA-PHI 
VA-1 ,-BGFR 
TA-T 

IF(PHIA.LE.0.0)PHIA«0. 
IF(PHIA.GE.4.0)PHIA-4.0 
IF(TA. LE.300. )TA—300. 

IF(TA.GT. 1700. )G0  TO  30 

I-IFIX( (TA-300. )/200. )+1 
IF(TA.GE. 1500.) 1-7 
IF(TA. LT.500. ) 1-1 
TAI-AT(I) 

TA2-AT ( 1+1 ) 

K-11 

IF(PHIA.GE.3.5)GOT0  20 
K-IFIX((PHIA-1 .5)/.5)+7 
IF(PHIA.GE.1.5.AND.PHIA.LT.3.5)GOTO  20 
K-6 

IF(PHIA.GE.1 .2. AND.PHIA.LT. 1.5)GOTO  20 
K— IFIX( (PHIA-0 . 8)/. 1 )+2 
IF(PHIA.GE. .8. ANO.PHIA.LT. 1 ,2)GOTO  20 
K-1 

20  PHII-APHl(K) 

PHI2-APHI (K+1 ) 

IU1-K»8+I+1 
IU2-(K-1) *8+1+1 
IU3-(K-1)»8+I 
IU4-K«8+I 

R- (-PH 1 1 +PH I +PH I -PH  1 2)/ (PH  1 2-PH1 1 ) 
S**(-TA1+T+T-TA2)/(TA2-TA1  ) 

HI— (1 .+R)*(1 ,+S) 

H2-(1 .-R)»(1 ,+S) 

H3-(1 . — R ) • ( 1 .-S) 

H4—( 1 .+R) » ( 1 .— S) 

HU-.25»(H1.UHTBL(IU1)+H2»UHTBL(!U2)+ 
*H3*UHTBL( IU3)+H4.UHTBL( IU4) ) 

CPU-. 25* (HI »UCTBL( IU1 )+H2»UCTBL( IU2)+ 
lcH3«UCTBL(  IU3)+H4»UCTBL(  IU4)  ) 
WT1>-.25»(H1  »UWTBL(  IU1  )+H2»UWTBL(  IU2)  + 
*H3«UWTBL( IU3)+H4.UWTBL( IU4) ) 

GO  TO  40 
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30  CALL  BTHRMO  (P.T. FR , HU, CPU . WTU.SVU) 

40  ST-T/1O00. 

HV-( ( (FCF(4)/4 . *ST+FCF(3)/3 . ) *ST+FCF(2)/2 . ) »ST+ 
iFCF( 1 ) ) *ST-FCF(5)/ST+FCF(6) 

CPV“((FCF(4)»ST+FCF(3))*ST+FCF(2))«ST+FCF(1 )+FCF(5)/(ST»ST) 
HV-1000.*HV/WTV 
CPV-CPV/WTV 
C 

H-HU*BGFR+HV*VA 
CP-CPU . BG  FR+CPV . VA 
WT-WTU*WTV/(WTU*VA  +  WTV.BGFR) 

RETURN 

END 

. . . . . . . . . . 

. . * . ***** . * . . . * . 

c 

C  SUBROUTINE  VOL 
C 

C  PURPOSE 

C  CALCULATES  PRESSURE  AND  ELEMENT  TEMPERATURES  TO  MEET 

C  TOTAL  VOLUME  CONSTRAINT. 

C 

C  VARIABLES  -  SEE  SMM 
C 

C  ARRAYS  -  SEE  SMM 
C 
C 
C 

SUBROUTINE  VOL 
INCLUDE  ‘ SMMCOM .  OR' 

INCLUDE  ’SMZCOM. FOR ‘ 

DIMENSION  ELEMT(MAXELE,6) .SVOLO(MAXELE) .TNEW(MAXELE) 

DIMENSION  NUM(NA.MAXELE) .TFMF(MAXELE) 

COMMON  /ELEMT1/  ELEMT 
COMMON  /ELEMT 4/  SVOLO 
COMMON  /ELEMT 6/  NUM.TFMF 

PARAMETER (RBAR-1 . 9869 .CCAL-. 02421725 , GAMMA— 1 .35) 

PNEW-P 

ITER-1 

TOTVOL-0. 

DO  50  NZ-1 .N20NES 

IF(NELS(NZ) . LT. 1 )GO  TO  50 
TOTVOL-TOTVOL+ZVOL(NZ) 

50  CONTINUE 

TOTVOL-TOTVOL+ZVOL ( NA ) 

60  DELP-PNEW-P 
VOLNEW-0 

VOLAIR-ZVOL(NA) • (PMDM/PNEW) *•( 1 ./GAMMA) 

C 

DO  100  NZ-1.NZONES 

IF(NELS(NZ) . LT. 1 )  GO  TO  100 
DO  70  LN-1 .NELS(NZ) 

N-NUM(NZ.LN) 

R-RBAR/ELEMT ( N , 6 ) 

DEN-1 .— . 5»R«DELP/(ELEMT(N , 5) .PNEW) 

TNEW(N)-( ELEMT (N , 2)+. 5*OELP.CCAL*SVOLD(N)/ELEMT(N , 5) )/DEN 
VOLNEW-VO  LN  EW+TNEW  (  N ) .  R  .  EUvW/ ( PNEW  •  CCA  L ) 

70  CONTINUE 


o  o  o  o  o  o 
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100  CONTINUE 

VOLNEW-VOLNEW+VOLAIR 
VOLERR-ABS(VOLNE*/TOTVOL-1 . ) 

IF(VOLERR. LE.VERMAX)  GO  TO  140 
IF(ITER.GT.ITMAXV)  THEN 
CALL  OUTPUT (5) 

GO  TO  140 
END  IF 

PNEW-(VOLNEW/TOTVOL) »PNEW 
ITER-ITER+1 
GO  TO  60 

UPDATE  AIR  ZONE  ACTIVE  ELEMENTS 

140  IF(NELS(NA).LE.0)GO  TO  200 
DO  150  LN-1 .NELS(NA) 

N-NUM(NA.LN) 

R-RBAR/ELEMT(N,6) 

OEN-1 .5*R»DELP/(ELEMT(N,5)*PNEW) 
ELEMT(N,2)-(ELEMT(N ,2)+.5»DELP»CCAL»SV0LD(N)/ 

1  ELEMT(N,5))/DEN 

IF(ELEMT(N.3).LT.1 .)then 
CALL  UTHRMO(P. ELEMT(N,2) , ELEMT(N, 1 ) , 

1  ELEMT (N ,3), ELEMT (N . 4) , ELEMT (N , 5) . ELEMT (N , 6) ) 

ELSE 

CALL  BTHRMO(P, ELEMT (N, 2) , ELEMT(N, 1 ) , 

1  ELEMT (N . 4) . ELEMT(N,5) , ELEMT (N, 6) ) 

END  IF 

SVOLD(N)-RBAR. ELEMT(N . 2)/(P*CCAL«ELEUT (N . 6) ) 

150  '  CONTINUE 

200  DO  300  NZ-1 .NZONES 

IF(NELS(NZ) . LT. 1 )GO  TO  300 

UPDATE  PROPERTIES  AFTER  CORRECTING  VOLUME 

DO  250  LN-1 .NELS(NZ) 

N— NUM(NZ.LN) 

ELEMT(N,2)— TNEW(N) 

IF(ELEMT(N.3).LT.1.)THEN 
CALL  UTHRMO(P, ELEMT(N, 2) , ELEMT (N, 1 ) , 

1  ELEMT (N,3) , ELEMT (N, 4) , ELEMT (N,5) , ELEMT (N, 6)) 

ELSE 

CALL  BTHRMO(P.ELEMT(N,2),ELEMT(NI 1), 

1  ELEMT(N, 4) , ELEMT (N , 5) , ELEMT (N, 6) ) 

END  IF 

SVOLD (N)-RBAR» ELEMT (N, 2 )/(P*CCAL» ELEMT (N, 6) ) 

250  CONTINUE 
300  CONTINUE 
400  DELTAP— DELP* 1 00 ./P 
P-PNEW 
RETURN 
END 


When  turbulent  fluctuations  go  to  zero  the  value  of  X  goes  to  1  . 

Terms  containing  products  of  fluctuation  terms  are  dependent  on  the 

correlation  of  these  fluctuations  and  X  may  be  greater  or  less  than  one 

as  a  result  of  these  correlation  terms.  If  the  activation  energy  is 

high  or  the  mean  temperature  T  is  low,  will  increase  very  rapidly 

with  n  while  Q  decreases  with  n.  This  results  in  a  correction  term 
n 

very  different  from  one  when  slow  reactions  or  low  mean  temperatures 
exist.  For  reactions  with  low  activation  energy  or  high  mean  tempera¬ 
tures  the  value  of  X  is  very  nearly  one  and  mean  temperatures  and  con¬ 
centrations  may  be  used  to  calculate  reaction  rates  with  reasonable 
accuracy. 

There  are  no  simple  methods  for  incorporating  the  effect  of  turbu¬ 
lent  fluctuations  on  slow  reaction  chemistry  into  a  computational  react¬ 
ing-flow,  model  .  Two  approaches,  probability  density  function  (PDF) 
models  and  stochastic  models  have  been  used  with  some  success  in  partic¬ 
ular  applications.  The  PDF  approach  uses  a  joint  PDF  to  describe  the 
chemical,  thermodynamic  and  flow  properties.  This  PDF  contains  all  the 
information  required  to  describe  the  reactive  flow.  Working  from  the 
basic  turbulent  flow  conservation  equations  a  single  equation  for  this 
joint  PDF  can  be  derived.  Using  a  Monte  Carlo  solution  method,  Pope 
[4o]  was  able  to  solve  this  equation  for  some  very  simple  geometries. 

The  complexity  and  unsteadiness  of  diesel  combustion  makes  this  approach 
impractical  for  our  application.  Stochastic  mixing  models  provide  a 
less  complete,  but  more  computationally  efficient  method  of  dealing  with 
this  problem. 


C . 2  The  Random  Coalescence  Model 

In  order  to  model  more  complex  chemistry  and  include  the  effect  of 
turbulent  fluctuations  within  reasonable  computational  limits  some  com¬ 
promises  must  be  made  in  dealing  with  the  flow  details.  The  use  of 
stochastic  phenomenalogical  models  has  gained  broad -acceptance  for 
3teady  flow  chemical  reactors,  especially  when  some  details  of  the  flow 
and  mixing  are  already  known. 

The  development  of  these  models  has  occurred  gradually.  Pratt  [41] 
provides  an  excellent  overview  of  this  development.  Danckwerts  [42]  and 
Zweitering  [43]  introduced  the  concept  of  "population  balance"  modeling 
in  which  the  flow  is  described  as  an  ensemble  of  fluid  particles.  Entry 
of  reactant  particles  into  the  reactor  is  called  a  "birth"  event  and 
exit  from  the  reactor  is  a  "death"  event.  The  time  a  particle  spends  in 
the  reactor  from  birth  to  death  is  the  particle  "residence  time".  Two 
types  of  mixing  may  occur  in  these  models. 

1 .  Macromixing  or  backmixing  is  the  large  scale  mixing 
of  elements  of  different  "ages"  within  a  flow.  It  is  typical 
of  a  recirculating  flow.  At  any  point  within  the  flow  parti¬ 
cles  have  a  distribution  of  ages.  Macromixing  is  often  char¬ 
acterized  by  a  residence  time  distribution  (RTD)  which  refers 
to  the  distribution  of  particle  ages  at  exit.  Macromixing 
does  not  consider  mixing  on  a  molecular  level. 

2.  Micromixing  or  stream  mixing  refers  to  the  mixing  of 
particles  on  a  molecular  level. 

Until  the  coalescence  and  dispersion  model  proposed  by  Curl  [1], 
early  applications  of  these  concepts  were  limited  to  the  extremes  of 
perfect  micromixing  or  no  micromixing  and  perfect  macromixing  or  no 
macromixing.  Two  examples  of  these  are: 
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1.  A  plug  flow  reactor  (PFR)  in  which  groups  of  parti¬ 
cles  that  enter  together  stay  together  (no  macromixing). 

These  groups  of  particles  are  either  homogeneous  on  a  molecu¬ 
lar  level  (perfectly  microraixed)  or  unmixed  on  a  molecular 
level . 

2.  A  perfectly  sttirred  reactor  (PSR)  where  the  flow  is 
homogeneous  in  terms  of  particle  age  distribution  (perfectly 
macromixed),  and  either  homogeneous  or  unmixed  on  a  molecular 
level . 

Curl's  model  allowed  for  finite  rate  micromixing.  His  model  as¬ 
sumed  that  initially  segregated  parcels  are  continuously  fed  into  a 
perfectly  stirred  reactor  (perfectly  macromixed)  having  a  constant  par¬ 
cel  population.  Randomly  selected  pairs  of  parcels  are  mixed  on  a  mole¬ 
cular  level  (coalesced)  according  to  a  prescribed  mixing  rate  and  then 
separated  again  into  two  parcels  of  equal  average  intensive  properties 
(dispersed).  Finite  rate  batch  chemistry  proceeds  continuously  in  each 
parcel  during  the  time  interval  between  mixings.  Curl  derived  a  differ¬ 
ential  equation  based  on  this  process  to  describe  the  concentration 
probability  density  function.  Monte  Carlo  solutions  of  this  equation 
for  perfectly  stirred  reactors,  plug  flow  reactors  with  finite  rate 
micromixing,  and  series  combinations  of  plug  flow  and  perfectly  stirred 
reactors  have  gained  widespread  use.  [44,45,46]  In  our  application 
various  zones  within  the  flow  are  assumed  to  be  perfectly  stirred  reac¬ 
tors  (perfectly  macromixed)  and  finite  rate  micromixing  within  these 
zones  is  achieved  using  this  technique. 

The  mixing  rate  specified  in  Curl's  model  represents  the  number  of 
pairs  of  parcels  mixed  per  unit  oime  or  the  reciprocal  of  the  character¬ 
istic  micromixing  time.  An  expression  for  the  mixing  rate,  8(t),  was 


I 


.V. 

"  >  ’  *1  *  J.  *  jm 


-259- 


derived  by  Corrsin  in  an  analysis  of  the  exponential  decay  of  concentra¬ 
tion  fluctuations  in  isotropic  turbulence.  [47]  Despite  Corrsin's 


rather  restrictive  assumptions,  his  results  have  been  shown  to  work  for 
more  general  reactive  flows  as  long  as  the  mixing  rate  is  adequately 


large.  [48,49] 

For  a  single  phase  turbulent  reacting  flow  with  constant  diffusiv- 
ity  and  density,  the  species  conservation  equation,  Equation  (2.2),  in 
indical  notation  is: 


DV2p  +  pC 
Hm  Hm 


(C.8 ) 


Applying  Reynold's  decomposition  and  time  averaging,  assuming  homogene¬ 
ous  isotropic  turbulence,  this  becomes: 


(C.9) 


where : 


p  =  p  +  p 

m  m  m 


Subtracting  (C.9)  from  (C.8),  multiplying  by  p  '  and  again  time  averag¬ 


ing  results  in: 


3p_  r  ,'~i 

T/  m  . t  m  %  _  o 

w:  M  sr  >  *  2%  % 

J  J 


(C. 10) 


For  isotropic  turbulence: 


9p  9p  9p  _ 

— 01  )(  — E  )  =  3  (  — -  )2 

3x.  M  3*.  3  '  3x  ‘ 

J  J 


(C.11) 
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For  fluctuations  in  concentration: 


x2  -  [  »'2  /  (  )2  ] 

m  L  m  3x  J 


(C .  1  2 ) 


is  analogous  to  the  Taylor  microscale: 


5  —To  3u  0 

4  ■  (  u  2 '  <  jr  >  1 


where: 


Substituting  these  expressions  into  Equation  (C.10)  yields: 


.  ’2  '2  _ 

dpm  pm  C’  ’ 

dt — 6v  x  Pm  Pm 

AT 


(C. 1 3) 


Considering  only  the  effect  due  to  mixing: 


'2  '2 

pm  c  pm  „  ’  2 
- - 6v  —  -  ~8Pm 

XT 


(C.14) 


This  differential  equation  represents  an  exponential  decay  of  the  spe¬ 
cies  density  turbulent  variance: 


Vi  > ) , .  i . 


Pm  (t)  -  exp(-Bt) 
m  mo 


(C.15) 


Although  the  coalescence/dispersion  model  is  not  intended  to  represent 
the  details  of  the  actual  mixing  process  it  does  predict  this  same  expo¬ 
nential  decay. 

Following  the  above  analysis,  the  mixing  rate  for  our  coalescence/ 
dispersion  model  may  be  expreessed  in  terms  of  physical  turbulent  flow 
properties: 


v2  .  ’2 

)  /  u  -  — 


5°  C6pT 


(C.16) 


where  L  is  equal  to  the  subgid  scale  length.  For  our  analysis,  turbu¬ 
lent  viscosity,  p^,  and  the  subgrid  scale  characteristic  length  are 
calculated  as  part  of  KIVA's  multi-dimensional  solution  so  that  the 
mixing  rate  of  each  stochastic  mixing  zone  may  be  calculated  by  the  MDM , 
With  a  scaling  factor  of  50.0  included  in  Equation  (C .  1 6 ) ,  a  value-of 
near  unity  best  reproduces  the  MDM  results. 


msmssssssm 


APPENDIX  D 


NASA  PROGRAM  INPUT 


D . 1  Equilibrium  Data  Input 

Program  SMM  requires  tables  of  composition  and  thermodynamic  pro¬ 
perties  for  the  burned  fuel  mixture  in  order  to  calculate  the  thermody¬ 
namic  state  of  elements,  NO  production  and  oxidation,  and  soot  oxida¬ 
tion.  For  high  temperatures,  the  burned  gas  mixture  is  assumed  to  be  at 
equilibrium.  For  temperatures  below  1700K,  thermodynamic  properties  are 
calculated  assuming  that  the  mixture  composition  is  frozen  at  1700K. 

The  NASA  Equilibrium  Code  [50]  is  used  to  generate  tables  of  composition 
and  properties  as  a  function  of  temperature  (300K-3500K) ,  pressure  ( 1  atm 
-lOOatm),  and  total  equivalence  ratio  (0~4.0).  Changes  to  the  NASA  Code 
and  supplementary  programs  are  listed  in  APPENDIX  D.2.  Standard  enthal¬ 
py  with  a  298K  datum  is  used  for  all  calculations.  Thermodynamic  pro¬ 
perties  calculated  are:  standard  enthalpy,  specific  heat  at  constant 
pressure,  molecular  weight  and  heat  of  formation  at  298K.  Compositions 
calculated  are:  U1 ,  U2,  U3»  K1 ,  K2,  [O^L  [OH],  and  [CO].  (See  Equation 
3.16)  The  diesel  fuel  used  is  C.A  0H,0  „.  Running  command  files  NASA1  , 

1 O  »  | 

NASA 2,  NASA3,  NASA4A ,  NASA4B ,  TABLE1 ,  TABLE2  AND  TABLE3,  in  that  order, 
will  generate  the  NASA  Tables,  file  TBL1T7.DAT.  Subroutine  BTHRMO  cal¬ 
culates  the  thermodynamic  properties  of  burned  elements  and  the  burned 
gas  fraction  (BGFR)  of  unburned  elements  by  interpolation  in  the  NASA 
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Tables. 

Subroutine  UTHRMO  calculates  the  thermodynamic  properties  of  ele¬ 
ments  containing  a  mixture  of  unburned  fuel  vapor  and  burned  gas. 
(BGFR<1.)  An  unburned  element  is  assumed  to  consist  of  equilibrium 
burned  gas  (BGFR),  whose  properties  are  calculated  by  Subroutine  BTHRMO, 
and  unburned  fuel  vapor,  whose  properties  are  calculated  using  empirical 
expressions.  Coefficients  for  calculating  fuel  vapor  enthalpy  and  spe¬ 
cific  heat  are  from  Reference  [16]. 


D . 2  FORTRAN  Code 

C***  NASA. FOR  UPDATE  ******************  MLS  12/83, AJB  6/85  ******* 
DIMENSION  ZEXTRA(IO),  Y0UT(10,13) 

COMMON/SH/SENSH (13) .ENTLPY 

C***********************************  MLS  12/83,  AJB  e/85*********** 
DATA  ZEXTRA/  4HC02  .4HH20  ,  4HCO  ,4HH2  ,  4H02  ,4HN2  ,4HN0  , 

&  4H0  ,4HN  ,  4H0H  / 

C**************************************  MLS  12/83,  AJB  6/85******** 
IF-(CHFROZ)  THEN 

CALL  CHFRZN (NS ,EQRAT ) 

GO  TO  4 
END  IF 

IF ( .NOT  .THMON )G0  TO  4 
CALL  SHCALC  (NS  ,NPT ) 

DO  910  1-1 ,NPT 

WRITE(1 0 ,900)  PPP(I),  TTT(I),  EQRAT ,  ENTLPY (I ) ,SPHEAT(I ) ,WM(I ) , 
1  SENSH(I) 

900  FORM  AT  (1  X,  IF  10. 1  ,1F10.1,1F10.2,1F12.1,1F10.3,1F10.2,1F12.1) 

910  CONTINUE 

c*»*****************************  mLS  12/83,  AJB  6/85*************** 

IF (CHFROZ .OR .THMON ) GO  TO  3000 
DO  1003  K-1 ,10 
DO  1002  1-1  ,NS 

IF (SUB(I , 1 ) .NE .ZEXTRA (K) )  GO  TO  1002 
DO  1001  12-1  ,NPT 

Y0UT (K, I 2)=EN (I ,1 2 )/T0TN (12) 

1001  CONTINUE 
GO  TO  1003 

1002  CONTINUE 

1003  CONTINUE 
C 

DO  1009  1-1 ,NPT 

WRITE(11 ,1110)  PPP(I),  TTT(I),  EQRAT,  (Y0UT(K,I),  K-1, 6) 

WRITE{ 12,1 120)  PPP(I),  TTT(I),  EQRAT,  (Y0UT(K,I),  K-7,10) 
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1009  CONTINUE 
C 

1110  FORMAT ( 1  X ,  1 F 1 0 . 1 ,1F10.1 ,1F10.2,6(2X,G12.5)) 

1120  FORMAT ( 1 X , 1 F 1 0 • 1 , 1F10. 1 , 1F10.2 ,4 (2X,G1 2.5 ) ) 

C*#*  CHFRZN.FOR  *###*****##**###*##**#***####*#****###*******»* 

C 

C  SUBROUTINE  CHFRZN (NS ,EQRAT) 

C 

C  PURPOSE 

C  TO  CALCULATE  PROPERTIES  OF  BURNED  MIXTURE  WHOSE 

C  COMPOSITION  IS  FROZEN  AT  1700K. 

C  INTENDED  TO  BE  USED  AS  A  SUBROUTINE  OF 

C  THE  NASA  CODE. 

C 

C  ARRAYS 

C  HFORM  -  HEAT  OF  FORMATION  AT  298K(cal/g) 

C  H  STANDARD  ENTHAL PY ( cal / g )  AT  298K  DATUM 

C  CP  -  SPECIFIC  HEAT ( cal/g-K) 

C 

C 

SUBROUTINE  CHFRZN (NS, EQRAT) 

DOUBLE  PRECISION  COEF ,S ,EN ,ENLN ,H0 ,DELN ,DELH 

DOUBLE  PRECISION  HSUM.SSUM.CPR ,DLVTP,DLVPT .GAMMAS 

COMMON/ POINTS/HSUM( 1 3 ) ,SSUM( 1 3 ) ,C PR( 1 3 ) .DLVTP (13) .DLVPT (13). 

1  GAMMAS ( 1 3)»P(26),T(52),V(13),PPP(13)»WM(13) ,S0NVEL(1 3) » 

2  TTT(13),VLM(13),TOTN(13) 

COMMON/SPEC ES/COEF (2, 7, 300 ),S(300),H0(300),DELN (300), DUMMY (300), 
1  EN (300 ,13) ,ENLN (300 ) ,A( 20 , 300 ) , SUB (300 , 3 ) ,IUSE (300 ) .TEMP (150,2) 
R-1 .9872 
NPT-1 
TT-298.15 
K-2 

HFORM-O. 

C 

C  NOTE:  THE  HEAT  OF  FORMATION  IS  THE  SAME  AT  ALL  TEMPERATURES  SINCE 
C  THE  COMPOSITION  IS  FROZEN  BELOW  1700K. 

C 

DO  400  J-1 ,NS 

HFORM -HFORM + ( ( ( ( (COEF (K, 5 ,J )/5 . )*TT+COEF (K, 4 ,J )/4 . )*TT 

1  +COEF(K,3,J)/3. )*TT  +COEF ( K ,2 ,J )/2 . )*TT  +COEF ( K , 1  ,J)  + 

2  C0EF(K,6,J)/TT)*EN(J,NPT)*TT*n 
400  CONTINUE 

DO  500  NT-1 ,8 
TT-1 00  .  +NT*200 . 

H-0. 

CP-O. 

DO  100  J-1  ,NS 
K-1 

IF (TT  .LE .1000. )  K-2 
KK-0 

IF(C0EF(K,1 ,J).NE.O.)GO  TO  75 

KK-K 

K-1 


75 


IF(KK.EQ.1)K-2 

H-H+  ( ((((C0EF(K,5,J)/5.) *TT+COEF (K, 4 ,J )/4 .  )*TT+ 

1  COEF(K,3,J)/3.  )*TT+C0EF(K,2,J)/2.  )*TT+C0EF(K,1  ,J)  + 

2  C0EF(K,6,J)/TT)*R*TT*EN(J,NPT) 

CP-CP+ ( ( ( (COEF ( K  ,5 , J  )*TT  +COEF ( K, 4 ,  J )  )*TT+ 

1  COEF (K, 3 » J  )  )*TT  COEF (K, 2 , J ) )*TT+COEF (K, 1 ,J ) )*R*EN (J ,NPT ) 

100  CONTINUE 

WRITE ( 1  0 ,900)PPP (NPT ) ,TT ,EQRAT ,H ,CP ,WM(NPT  )  ,HFORM 
500  CONTINUE 

900  FORMAT (1X.2F1 0.1 ,F10. 2,F1 2. 1 ,F10. 3.F10.2.F1 2. 1  ) 

RETURN 

END 

C***  SHCALC .FOR  ************************************************ 

C 

C  SUBROUTINE  SHCALC  (NS , NPT  ) 

C 

C  PURPOSE 

C  CALCULATES  HEAT  OF  FORMATION  BASED  ON  298K  DATUM  FROM 

C  STANDARD  OR  ASSIGNED  ENTHALPY  AS  CALCULATED  IN  THE  NASA 

C  EQUILIBRIUM  CODE.  INTENDED  TO  BE  USED  AS  A  SUBROUTINE  OF 

C  THE  NASA  CODE. 


C  ARRAYS 
C 


SENSH  -  HT  OF  FORMATION  AT  298K  FOR  MIXTURE  COMPOSTION 
AT  BURNED  TEMPERATURE  AND  PRESSURE  (CAL/G) 
DELH  -  SPECIES  HEAT  OF  FORMATION  AT  298K  (CAL/G) 


SUBROUTINE  SHCALC (NS , NPT ) 

DOUBLE  PRECISION  COEF ,S ,EN ,ENLN ,HO,DELN 
DOUBLE  PRECISION  DELH 

COMMON/ SPEC ES/COEF (2,7 ,300) ,S (300) ,H 0(300 ) ,DELN (300 ) , DUMMY ( 300 ) , 

1  EN (300,1 3) ,ENLN(300) ,A(20,300) , SUB (300, 3) ,IUSE(300) ,TEMP(1  50, 2) 
COMMON/SH/SENSH(1 3) ,ENTLPY(1  3) 

DIMENSION  DELH (300) 

R-1 .9872 
TT-298.15 
DO  100  J-1 ,NS 
K-2 

50  DELH (J)»((((C0EF(K,5,JJ/5 .  )*TT+COEF (K, 4 ,J )/4 . ) *TT+COEF (K, 3 , J )/ 

1  3. )*TT+C0EF(K,2,J)/2. )*TT+COEF(K, 1 ,J )+C0EF(K,6 ,J)/TT 

100  CONTINUE 

DO  300  N-1  ,NPT 
SENSH (N )»0. 

DO  200  J-1  ,NS 

D-DELH (J )*EN (J ,N )*TT*R 
SENSH  (N)-SENSH(N)+D 
200  CONTINUE 
300  CONTINUE 
RETURN 
END 

C*»*  NASA1 .COM  ******************************************************** 
$ !  COMMAND  PROCEDURE  TO  RUN  NASA 
$! 


A-S  V  N 


I X. II  Ml  -II. I 


B 


l 


$  ON  WARNING  THEN  EXIT 
$  ON  CONTROL_Y  THEN  EXIT 
$! 

$  DEFINE  FOR003  [BROWN. NASA ]NL; 

$  DEFINE  F0R004  [BROWN .NASA ]NASA .DAT 
$  DEFINE  F0R005  [BROWN .NASA ]NASA1 . INP 
$  DEFINE  FOR 006  [BROWN .NASA ]NL; 

$  DEFINE  F0R010  [BROWN .NASA ]NASA1 .OUT 
$! 

$  RUN  [BROWN. NASA ]NASA 
$! 

$  EXIT 

C***  NASA1 .INP  a*****#**#*###*#***#*##***#*##***##*##**#**#*#*#******#** 
REACTANTS 


C  10.8  H 

18.7 

100. 

-53570. 

G298.15 

.69 

N  1.561760 

.41959  AR .009324C  .000300 

100. 

-28.2 

G298.15 

NAMELIST 

$INPT2 

TP- .TRUE. 

P-60. 

ERATIO- .TRUE . 

MIX-1 .OE-2, .8,. 9, 1.0, 1.1,1. 2, 1.5, 2. 0,2. 5, 3. 0,3. 5, 4.0 
T-1700. 

KASE-4 

TRNSPT-. FALSE. 

CHFROZ- .TRUE . 

$END 

STOP 

C**»  NASA2.COM  **#******»#**************#**##**********#*#*##**#*#***## 
$!  COMMAND  PROCEDURE  TO  RUN  NASA 


) 


$  ON  WARNING  THEN  EXIT 
$  ON  CONTROL_Y  THEN  EXIT 
$! 

$  DEFINE  F0R003  [BROWN .NASA ]NL; 

$  DEFINE  FOR004  [BROWN.NASAjNASA.DAT 
$  DEFINE  FOR 005  [BROWN .NASA ]NASA2. INP 
$  DEFINE  F0R006  [BROWN ,NASA]NL; 

$  DEFINE  FOR 01 0  [BROWN .NASA ]NASA2. OUT 
$! 

$  RUN  [BROWN. NASA ]NASA 
$! 

$  EXIT 

C**»  NASA2.INP  *»**#*»**»*»#****#***#***»***»*****»****»***»»********» 
REACTANTS 


C  10.8  H 

18.7 

100. 

-53570. 

G298.15 

.69 

N  1.561760 

.41959  AR  .009324C  .000300 

100. 

-28.2 

G298. 15 

.. . .  ,-.v. 


■■.V 


NAMELIST 

$INPT2 

TP- .TRUE. 

P-1 . ,5. ,10. ,20. ,30. ,60. ,100. 

ER AT 10 -.TRUE. 

MIX-. 01 ,  .3,  .4,  .5,  .6  ,  .7  ,  .8  ,  .85,  .9 

T-1  700., 1800. ,1900. ,2000. ,21 00., 2200., 2300. ,2400., 2500. ,2600. , 

2700. ,2800. ,2900. ,3000. ,3200. ,3500. 

KASE-1 

TRNSPT-. FALSE. 

CHFR0Z-. FALSE. 

$END 

STOP 

C*»*  NASA3.COM  **************************************************** 

$!  COMMAND  PROCEDURE  TO  RUN  NASA 
$! 

$  ON  WARNING  THEN  EXIT 
$  ON  CONTROL_Y  THEN  EXIT 
$! 

$  DEFINE  F0R003  [BROWN .NASA ]NL; 

$  DEFINE  F0R004  [BROWN .NASA ]NASA .DAT 
$  DEFINE  FOR 005  [BROWN .NASA ]NASA3 .INP 
$  DEFINE  F0R006  [BROWN .NASA ]NL; 

$  DEFINE  F0R010  [BROWN .NASA ]NASA3 .OUT 
$! 

$  RUN  [BROWN. NASA ]NASA 
$  EXIT  " 

C***  NASA 3. INP  ********************************************************* 
REACTANTS 


C  10.8  H 
.69 

18.7 

100. 

-53570. 

L298.15 

N  1.561  760 

.41959  AR  .009324C  .000300 

100. 

-28.2 

G298.15 

NAMELIST 

$INPT2 

TP- .TRUE. 

P-1 . ,5. ,10. ,20. ,30. ,60. ,100. 

ERATIO- .TRUE . 

MIX-. 95,1  .0,1  .05,1  .1  ,1. 2, 1.35, 1  .5, 1  .75, 2. 0,2. 25, 2. 5, 2. 75, 3. 0,3. 5, 4.0 
T-1  700. ,1800.  ,1900.  ,2000.  ,21 00., 2200.  ,2300.  ,2400.  ,2500.  ,2600. , 

2700. ,2800. . ,2900. ,3000. ,3200. ,3500. 

KASE-1 

TRNSPT-. FALSE. 

CHFROZ-. FALSE. 

$END 

STOP 

C*»*  NASA4A.COM  ***************************************************** 

$!  COMMAND  PROCEDURE  TO  RUN  NASA 
$! 

$  ON  WARNING  THEN  EXIT 
$  ON  CONTROL  Y  THEN  EXIT 
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$!  : 

$  DEFINE  FOR003  [BROWN .NASA ]NL;  | 

$  DEFINE  F0R004  [BROWN .NASA ]NASA .DAT 
$  DEFINE  FOR005  [BROWN .NASA ]NASA4A  .INP 
$  DEFINE  F0R006  [BROWN .NASA ]NL; 

$  DEFINE  FOROII  [BROWN .NASA]NAS4A1 .OUT 
$  DEFINE  FOR012  [BROWN  .NASA ]NAS4A2  .OUT 
$! 

$  RUN  [BROWN. NASA ]NASA 
$! 

$  EXIT 

C***  NASA4A.INP  ********************************************************  ' 

REACTANTS  \ 


C  10.8  H 
.69 

18.7 

100. 

-53570. 

L298.15 

F 

N  1.561760 

.41959  AR  .009324C  .000300 

100. 

-28.2 

G298.15 

0 

NAMELIST 

$INPT2  I 

TP- .TRUE.  ] 

P-1.,10.,30.,50.,75.,100.  | 

ERATIO-  .TRUE .  I 

MIX-. 01  ,  .2,  .4,  .6  ,  .8, .9  ,  .95,1 .0,1  .05,1  .  1  ,1 .2,1 .3, 1 .4,1 .5,1  .6  \ 

T-1 700  . , 1 800 . , 1 900 . , 2000 .,2100., 2200 . ,2300 . , 2400 . , 2500 . , 2600 . , 2700 . ,  } 

2800. ,2900. ,3000. ,3200. ,3500. 

KASE-1  I 

TRNSPT-. FALSE.  I 

CHFROZ-. FALSE.  3 

THMON-. FALSE.  1 

TRACE-1. E-20  j 

pEND  i 

STOP  S 

$!  COMMAND  PROCEDURE  TO  RUN  NASA  I 

$!  | 

$  ON  WARNING  THEN  EXIT  ! 

$  ON  CONTROL  Y  THEN  EXIT  ! 


$  DEFINE  F0R003  [BROWN .NASA]NL; 

$  DEFINE  F0R004  [BROWN .NASA ]N ASA .DAT 
$  DEFINE  F0R005  [BROWN .NASA ]NASA4B .INP 
$  DEFINE  FOR006  [BROWN .NASA ]NL; 

$  DEFINE  FOROII  [BROWN .NASA JNAS4B1 .OUT 
$  DEFINE  F0R012  [BROWN .NASA ]NAS4B2 .OUT 
$! 

$  RUN  [BROWN. NASA ]NASA 
$! 

$  EXIT 

C»»*  NASA4B.INP  ******************************************************* 


I 
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REACTANTS 
C  10.8  H  18.7 
.69 

N  1.561760  .41959  AR.009324C  .000300 


-53570.  L298.15  F 

-28.2  G298.15  0 


NAMELIST 

$INPT2 

TP- .TRUE. 

P-1.,10.,30.,50.,75.,100. 

ERATI0- .TRUE . 

MIX-1 .8, 2. 0,2. 2, 2. 4, 2. 6, 2. 8, 3. 0,3. 2, 3. 4, 3. 6, 3- 8, 4.0 
T-1 700 .,  1 800  .,1900., 2000 .,2100., 2200 . , 2300 . , 2400 . , 2500 . , 2600 . ,2700 . 
,2800. ,2900. ,3000. ,3200. ,3500. 

KASE-1 

TRNSPT-. FALSE. 

CHFROZ-. FALSE. 

THM ON -.FALSE. 

TRACE-1 . E-20 
$END 
STOP 

C***  TABLE1 .FOR  ***************************************************** 

C 

C  THIS  PROGRAM  CALCULATES  TABLE  COEFICIENTS  FROM  NASA  DATA 
C  FOR  TEMPERATURES  BELOW  1  700K  WHERE  THE  CHEMISTRY  IS  FROZEN. 

C  IT  SHOULD  BE  THE  FIRST  RUN  INPUT  INTO  TBL1T7.DAT. 


PROGRAM  TABLE1 

DIMENSION  H(96),CP(96),WM(96),SH(96) 

OPEN  (UNIT-3,  FILE-' [BR0WN.SMM1TBL1T7.DAT’ ,  STATUS- ' N EW' ) 

OPEN  (UNIT-10,  FILE-' [BROWN .NASA ]NASA1 .OUT' ,  STATUS-'OLD ' ) 

DO  100  N-1  ,96 

READ(  10,901  )  XI  ,X2,X3,H(N),CP(N),WM(N),SH(N) 

100  CONTINUE 

WRITE(3,910)  (H(N),N-1  ,96) 

WRITE  (3,920)  (CP(N)  ,N-1  ,96) 

WRITE(3,930)  (WM(N),N-1 ,96) 

WRITE(3,910)  (SH(N) ,N-1 ,96) 

CLOSE  (UNIT-3) 

CLOSE  (UNIT-10) 

STOP 

901  FORMAT ( 1 X, 2F 1 0 . 1 ,F 1 0 . 2 ,F 1 2 . 1 ,F 10 . 3 ,F 1 0 . 2 ,F1 2 . 1 ) 

910  FORMAT (2X, 1 0F7. 1 ) 

920  FORMAT (2X, 1 0F7 . 3 ) 

930  FORMAT (2X.10F7. 2) 

END 

C*»*  TABLE2.F0R  ***************************************************** 

C 

C  THIS  IS  THE  SECOND  PROGRAM  FOR  PROCESSING  NASA  TO  TABLE  DATA. 

C  IT  IS  FOR  BURNED  PRODUCTS  THERMO  DATA.  T>1700K. 

PROGRAM  TABLE2 

DIMENSION  H(24,7,16),CP(2  4,7,16),WM(24,7,16),SH(24,7,16) 


HAW 


WWW 


OPEN  (UNIT-3,  FILE-' [BROWN.SMMjTBL1T7.DAT'  ,  STATUS-'OLD'  ’ 

1  ACCESS- ' APPEND ' ) 

OPEN  (UNIT-10,  FILE-' [BROWN. NASA ]NASA2. OUT' ,  STATUS-'OLD') 

OPEN  (UNIT-11,  FILE-' [BROWN .NASA ]NASA3. OUT’ ,  STATUS-'OLD') 

DO  100  1-1 ,9 
DO  100  J-1 ,7 
DO  100  K-1 ,16 

READ(1  0,901  )  XI  ,X2,X3,H(I  ,J,K)  ,CP(I  ,J,K)  ,WM(I  ,J,K) , 

1  SH (I , J , K) 

100  CONTINUE 

DO  200  1-10,24 
DO  200  J-1 ,7 
DO  200  K-1  ,1  6 

READ(11  ,901)  XI  ,X2,X3,H(I,J,K),CP(I,J,K),WM(I,J,K), 

1  SH (I  ,J , K) 

200  CONTINUE 

WRITE (3,9 10)  ( ( (H (I , J ,K) , K-1 , 1 6 ) ,1 -1 ,24), J-1 ,7) 

WRITE (3, 920)  (((CP (I ,J,K),K-1 ,16),I-1  ,24), J-1  ,7) 

WRITE(3,930)  (((WM(I,J,K),K-1 ,16), 1-1 ,24), J-1 ,7) 

WRITE (3, 9 10)  ( ( (SH (I , J , K) , K— 1 ,1 6 )  ,1-1  ,24),  J-1  ,7) 

CLOSE  (UNIT-3) 

CLOSE  (UNIT-10) 

CLOSE  (UNIT-11) 

STOP 

901  F0RMAT(1X,2F10.1 ,F10.2,F12.1 ,F1 0. 3 ,F 1 0 . 2 ,F1 2. 1 ) 

910  FORMAT (2X, 1 0F7. 1  ) 

920  FORMAT (2X, 1 0F7 .3) 

930  FORMAT (2X.10F7. 2) 

END 

C**#  TABLE3-F0R  **************************************************** 
PROGRAM  TABLE 3 

DIMENSION  A(27,6,16),B(27,6,16),C(27,6,16),D(27,6,16), 

1  E(27 ,6 ,1 6 )  ,F(27  ,6 ,1 6 ) 

REAL  KK.K1  ,K2,K3 

OPEN  (UNIT-3,  FILE-' [BR0WN.SMMjTBL1T7.DAT' ,  STATUS-'OLD', 

1  ACCESS-' APPEND ' ) 

OPEN  (UNIT-10,  FILE-' [BROWN. NASA]NAS4A1 .OUT' ,  STATUS-'OLD') 
OPEN  (UNIT-11,  FILE-' [BROWN .NASA ]NAS4A2. OUT' ,  STATUS-'OLD') 
OPEN  (UNIT-12,  FILE-' [BROWN .NASA ]NAS4B1 .OUT' ,  STATUS-'OLD’) 
OPEN  (UNIT-13,  FILE-' [BROWN .NASA JNAS4B2. OUT' ,  STATUS-'OLD') 
K3-4.1E13 
DO  100  1-1,15 
DO  100  J-1  ,6 
DO  100  K-1  ,16 

READ  (10, 901  )  XI  ,T  ,X2  ,  XC0  2  ,  XH20  ,XCO  ,  XH2,  X02 ,  XN2 
READ(11  ,902)  XI , X2 , X3 ,XN0,X0,XN ,X0H 
A (I ,J .K)-ALOG(XNO) 

XX  -XO  *XN  2 

B(I  ,J  ,K’>-ALOG(XX) 

K1-(7.6E+13)*EXP(-38000./T) 

K2- ( 1 .  5E+9  )*EXP ( - 1 9500 ,/T ) 

KK-K1  *XN2*X0/ ( K2*XN*X02+K3*XN»X0H  ) 

C(I ,J , K)-ALOG(KK) 
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D(I  ,J,K)-AL0G(X02) 

E(I  ,J,K)-ALOG(XOH) 

F (I  ,J,iO=ALOG(XCO) 

100  CONTINUE 

DO  200  1-16,27 
DO  200  J-1 ,6 
DO  200  K=1 ,16 

READ (12,901 )  XI  , T , X2 , XCO  2 , XH 20 , XCO , XH 2 , XO 2 , XN 2 
READ( 1 3  ,902)  XI , X2 , X3 , XN 0 , XO , XN , XOH 
A (I  ,J  .K)-ALOG(XNO) 

XX-XO*XN2 
B (I  ,J  .K)-ALOG(XX) 

K1 - (7 • 1 6E  +  1 3  )* EXP (-38000 ./T ) 

K2- ( 1 .5E+9)*EXP(-19500./T) 

KK  -K1  *XN  2*X0/(  K2*XN  *X0  2+K3*XN  *XOH ) 

C(I ,J,K)«AL0G(KK) 

D (I  ,J,K)-AL0G(X02) 

E (I  ,J  .K)-ALOG(XOH) 

F (I ,J , K)-ALOG(XCO) 

200  CONTINUE 

WRITE(3 , 910)  (((A (I  ,J,K),K-1 , 1 6 ) , I - 1 ,27), J-1 ,6) 

WRITE (3,9 10)  (((B(I,J,K),K-1 , 1 6 ) ,1-1 ,27), J-1 ,6) 

WRITE (3,9 10)  (((C(I,J,K),K-1 ,16),I-1 ,27), J-1 ,6) 

WRITE (3,910)  ( ( (D (I , J , K) ,K=1 , 1 6 ) ,1-1 ,27), J-1 ,6) 
WRITE(3,910)  ( ( (E (I ,J ,K) ,K-1 tl6),I-1 ,27), J-1 ,6) 

WRITE (3, 910)  ( ( (F(I  ,J,K) ,K-1 , 1 6 ) ,1-1 ,27), J-1 ,6) 

CLOSE  (UNIT-3) 

CLOSE  (UNIT-10) 

CLOSE  (UNIT-11) 

CLOSE  (UNIT-12) 

CLOSE  (UNIT-13) 


901  FORMAT (1 X.2F10. 1 ,F 1 0 . 2 ,6 (2X,G1  2. 5 ) ) 

902  FORMAT ( 1 X , 2F 1 0. 1 ,F 1 0 .2 ,4 ( 2X, G1  2.5 ) ) 
910  FORMAT  (5  (1E14.7.1X)) 

END 


fl 


APPENDIX  E 


CHANGES  TO  KIVA  FORTRAN  CODE 


C»****»*******  SMM  INPUT  AND  NRL  MOD******************************** 

*1 .DEFINE. 29 

C  a************************************ a#***#*##**##*#****#*****#*#*## 
C  +++  KIVA  UPDATE  DECK 

C  +++  MODIFIED  FOR  GENERATING  INPUT  TO  STOCHASTIC  MIXING  MODEL  BY  ALAN 
C  •►  +  +  BROWN,  MIT,  121185.  FURTHER  MODIFIED  FOR  USE  ON  NAVAL  RESEARCH 
C  +++  LAB,  WASHINGTON  VAX/CRAY  SYSTEM. 

C 

C  USE  OF  INPUT  VARIABLE  LPR : 

C  LPR-1  LONG  PRINT 

C  LPR-2  MDMOUT  (OUTPUT  FOR  SMM) 

C  LPR-3  PLOTDAT  (GRAPHICS  OUTPUT) 

C  LPR-4  MDMOUT  AND  PLOTDAT 

C  LPR-0  NONE  OF  THE  ABOVE 

C 

0  *#***#********#**#****###***#*#**##*********##***#**#*#*##****#***** 
*D,COMD  .7 ,8 

PARAMETER  (NV- 1 200 .LNXPYP-60 ,LNSP- 1 2.LNRK-4 ,LNRE-6 ,NPAR=1 000 , 

1  LP-40,LCHOP-25,LVAP-67,NZMDM-10) 

*1 ,COMD. 26 

-  COMMON  /LC8/  AAA8( 1 ) , BMV (NV) ,QCOMB(NV ) , QWALL (NV) .DMEVAP (NV) , 

1  TMFBRN (NZMDM) .TMEVAP (NZMDM) .TQCOMB (NZMDM)  .TQWALL (NZMDM ) , 

2  ZMOLD(NZMDM)  , ZMLOLD (NZMDM )  , ZM VO LD (NZMDM)  ,ZMBFO (NZMDM)  , 

3  ZVOLO (NZMDM ) ,TIMMDM ,NCALL , ZZZ8 
*D , KIVA .1,2 

PROGRAM  KIVA 

OPEN (UNIT-4, FILE-'MDMOUT'  .STATUS- ' NEW ' ) 

OPEN ( UNIT-5, FILE-' ITAPE' .STATUS- 'OLD ' ) 

OPEN (UNIT-7,FILE-'RDUMP'  ,STATUS='OLD '  ) 

QPEN(UNIT-8,FILE-’WDUMP' .STATUS-' NEW' ) 

OPEN (UNIT -9, FILE-' PLOTDAT’ .STATUS- ' NEW ' ) 

OPEN (UNIT-12, FILE-' KI VAOUT' ,STATUS='NEW' ) 

*D, KIVA. 29, 30 

IF (NRK . GT .0 . AND .T .GE .T 1 IGN )  CALL  CHEM 
IF(NRE.EQ.6.AND.T.GE.T1IGN)  CALL  CHMQGM 
*D,  BEGIN.  5,1  6 
*D, BEGIN. 19, 59 

NWLCM-LOC ( ZZZ 1 )~L0C(AAA1  )+1 
DO  ION-1  ,NWLCM 
10  AAAI (N )»0. 

NWLCM-LOC ( ZZZ2  )~LOC ( AAA2 )+ 1 
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DO  20  N-1, NWLCM 
20  AAA2(N)-0. 

NWLCM-LOC ( ZZZ3 )~L0C (AAA3)+ 1 
DO  30  N-1  .NWLCM 
30  AAA3(N)-0. 

NWLCM-LOC ( ZZZ4 )-LOC ( AAA4 )+ 1 
DO  40  N-1, NWLCM 
40  AAA4 (N )»0. 

NWLCM-LOC ( ZZZ 5 )_LOC ( AAA5)+ 1 
DO  50  N-1  , NWLCM 
50  AAA5(N)-0. 

NWLCM-LOC (ZZZ6)-LOC(AAA6)+1 
DO  60  N-1  , NWLCM 
60  AAA6(N)-0. 

NWLCM-LOC  {HID  -LOC  ( AAA7 )  + 1 
DO  70  N-1  , NWLCM 
70  AAA7 (N )-0. 

NWLCM-LOC (ZZZ8)-LOC(AAA8)+1 
DO  80  N-1  .NWLCM 
80  AAA8(N)-0. 

•I.CHEM.15 

BMV(1 4  )  =  0. 

QCOMB (14 )»0 . 

*1  ,CHEM.  1 8 

SPDV«SPD(1 4 ,1 ) 

SI  EBEG-SIE  (14 ) 

*I,CHEM.8l 

BMV(I4)-V0L(I4)*(SPDV-SPD(I4,1  )) 

QCOMB (14  ) -VOL (14 )*RO (14 )* (SIE (14 )~SIEBEG) 
*D,CHEMEQ.1  ,133 
*1 .CHMQGM. 33 

SI  EBEG-SIE  (1 4) 

*D .CHMQGM. 1 25 
*1  .CHMQGM. 143 

QC0MB(I4 )=QCOMB(I 4 )+VOL(I 4)*R0(I4)*(SIE(I4)-SI EBEG) 
»D, CHOP. 18 
*D, CHOP. 21 
*D, CHOP. 233 
*1  .EVAP.116 

DMEVAP(I4)=DMT0T(I4) 

*1  .FULOUT.9 

IF((LPR.NE.3).AND.(LPR.NE.4))GO  TO  100 
*D,FULOUT. 18, 19 
100  IF(LPR.EQ.I)  CALL  LNGPRT 
*D, INJECT. 70, 72 

130  WRITE ( 1 2,200 )  T  ,NCYC 
CALL  EXIT 
♦D.LAWALL.11 

DO  181  1-1  ,NX 
IF(F(I4).EQ.O. )  GO  TO  1801 
SIEOLD-SIE  (14 ) 

*D  ,  LAWALL . 260 

180  QWALL (I 4)=VQL(I4)*R0(I4)*(SIE(I4)-SIE0LD) 


i 
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1801  1 4-1 4+1 
181  CONTINUE 

£**###»#*######*#####**#*##*#*###*#*###**#*#***###*#*#*#**#**###*#*#*# 
*DECK  MDMOUT 
C 

C  SUBROUTINE  MDMOUT 
C 

C  PURPOSE 
C 

C  TO  BE  INCLUDED  AS  A  SUBROUTINE  IN  KIVA.  WRITE  NECESSARY 

C  MDM  DATA  TO  A  TAPE  FOR  PROCESSING  AND  USE  AS  IN^UT  TO  A 

C  STOCHASTIC  MIXING  MODEL  FOR  PREDICTING  EMISSIONS. 

C 

C 

SUBROUTINE  MDMOUT 
C 

C  DECLARATION  STATEMENTS  AND  COMMON  BLOCKS 
C 

*CALL  COMD 
*CALL  PART 

DIMENSION  CELLM(NV) ,CMV(NV) ,CML(NV) ,CMBF (NV) ,CVOL(NV) ,CTEMP(NV) , 

1  CQCOMB (NV ) ,CBMV (NV ) .CMEVAP (NV ) , CQWALL (NV ) ,CNO (NV ) , 

2  CAMU(NV) 

REAL  MLIQ(NV) 

PARAMETER (CPE-2 . 389E-08 ) 

DIMENSION  ZLLIMT (NZMDM) ,ZULIMT (NZMDM) 

DIMENSION  ZM( NZMDM)  .ZML(NZMDM) ,ZMV (NZMDM)  ,ZMBF  (NZMDM)  , 

1  ZMFBRN (NZMDM) , ZMEVAP (NZMDM) ,ZVOL (NZMDM) , ZTEMP (NZMDM) , 

2  ZQWALL (NZMDM) ,ZAMU( NZMDM) ,ZQCOMB (NZMDM) ,ZFMF (NZMDM) , 

3  ZBETA (NZMDM) ,ZNO (NZMDM) 

DATA  (ZLLIMT(L).L-I .NZMDM)  / .2, .  16,  .  1 2,  .  1  ,  .08 , .06 , .04  ,  .02, 

1  .005,0.0/ 

DATA  (ZULIMT(L),L  =  1 .NZMDM)  /1  .0 , .2 ,  .  1 6 , . 1 2, . 1  , .08, .06 , .04 , 

1  .02,. 005/ 

C 

CPE2D-CPE*FAC2D 

C 

C  THESE  CALCULATIONS  ASSUME  A  HYDROCARBON  REACTION 

C  MECHANISM  WITH  THE  FOLLOWING  CHEMICAL  SPECIES  INVOLVED: 

C  1-DIESEL,  2-02,  3-N2,  4-C02,  5~H20,  6-H,  7“H2,  8-0,  9~N 

C  10-0H,  11 -CO,  12-NO 

C 

IF ( (T-TIMMDM) .LT . 1 . 0E-05 . AND ,NC ALL .GT .0 )G0  TO  200 
C 

PAV-O. 

NC-0 

C 

IF (NC ALL .EQ . 0 )THEN 

CA1INJ-ATDC +T 1 INJ*RPM*6 . 

WRITE (4  ,999) (NAME (N) ,N  =  1 , 1 0) ,CA 1 1NJ ,RPM 
END  IF 

999  FORMAT (10A8,/,1X,F6.1 ,2X,F6.1  ) 


I 


•mm 


o  o  o  o  o  o  o  o  o  o  o  o  no 


SUM  ALL  FLUID  PARTICLES  IN  A  CELL  FOR  THE  CELL  FLUID  MASS 

DO  50  1 4=1 ,1 JKVEC 
MLIQ(I4)=0. 

50  CONTINUE 

IF(NP.LE.O)GO  TO  101 
DO  100  N=1  ,NP 
I4=I4P(N) 

MLIQ(I4)=MLIQ(I4)  +  PI403R*PARTN(N)*RADP(N)**3 

100  CONTINUE 

CALCULATE  ALL  CELL  PROPERTIES  AT  START  OF  INJECTION  AND  EVERY 
DTMDM. 

101  DO  150  14=1 , I JKVEC 

IF (F (14 ) .LT . .9)  GO  TO  150 
NC-NC  +  1 

CV0L(NC)=FAC2D*V0L(I4) 

CELLM(NC)-CV0L(NC)*R0(I4) 

CML (NC )-MLIQ(I 4 )*FAC2D 
CMV (NC )-C VOL (NC  )*SPD (14 ,1 ) 

CMBF (NC )«C VOL (NC )* ( . 273*SPD(1 4, 4 )  +  .  1 1 2*SPD (1 4 ,5 )  + 

1  SPD (1 4 ,6 )+SPD (14 ,7 )+ . 059*SPD(I 4 ,10)+ .  429*SPD (14 , 1 1  )) 

CTEMP(NC)=CELLM(NC)*TEMP(I4) 

PRESSURE  IN  DYNES/CM##2 

PAV-PAV  +  P (1 4 ) 

ENERGY  PROPERTIES  MUST  BE  CONVERTED  FROM  ERGS  TO  CAL. 

CMEVAP (NC ) «F AC2D*DMEVAP (I  4 ) 

DMEVAP(I4)*0. 

CQWALL (NC ) -C PE 2D *QWALL (1 4 ) 

CQCOMB  (NC )  «CPE2D*QC0MB  (14  ) 

CAMU (NC ) »AMU ( I  4 )*C VOL (NC ) 

CBMV  (NC)=FAC2D*BMV  (14) 

CNO (NC ) -C VOL (NC ) *SPD ( 1 4 , 12) 

150  CONTINUE 

CONVERT  PRESSURE  UNITS  TO  ATM. 

PAV «PAV/ (NC  *  1 .01 325E  +  06) 

C  INITIALIZE  ZCNE  PROPERTIES. 
r 

DO  160  NNZ-1.NZMDM 
ZM (NNZ  )»0 , 

ZML  (NNZ  )"0 „ 

ZMV (NNZ )-0 . 

ZNO ( NNZ 0. 

ZMriF (NNZ )«0 . 


ooo  ooo  ooo  ooo  ooon 


ZV0L(NNZ)-0. 

ZTEMP (NNZ )«0 . 

ZAMU(NNZ)-0. 

ZMFBRN (NNZ  )»0 . 

ZMEVAP(NNZ)-0. 

ZQWALL (NNZ )-0 . 

ZQCOMB(NNZ )-0. 

160  CONTINUE 
NCELL-NC 
GO  TO  250 

CALCULATE  AND  UPDATE  CUMULATIVE  ZONE  PROPERTIES  EVERY  MDM 
CYCLE. 

200  NC-0 

DO  240  14-1  ,1 JKVEC 

IF (F (1 4 ) .LT . .9 )G0  TO  240 
NC-NC  +  1 

TO  CALCULATE  FMF 

CELLM(NC )-V0L(I4 )*R0(I4 )*FAC2D 
CMV (NC)-VOL (14  )*SPD(I4 ,1  )*FAC2D 

CMBF (NC )-VOL(I 4 )*FAC2D* ( . 273*SPD(I 4 ,4)+.112*SPD(l4,5)+ 
1  SPD (1 4  f 6  )+SPD(1 4 ,7 )  + . 059*SPD (14 ,  10 )+ . 429*SPD (14,11)) 

CUMULATIVE  CELL  PROPERTIES 

CBMV  (NC  )-FAC2D*BMV(1 4 ) 

CM  EV AP ( NC ) -F AC  2D  *DMEV A  P ( 1 4 ) 

DMEVAP (1 4 )-0. 

CQCOM B (NC ) -C PE 2D *QCO MB ( 1 4 ) 

CQWALL (NC )-CPE2D*QWALL (14 ) 

240  CONTINUE 

INITIALIZE  CUMULATIVE  ZONE  PROPERTIES. 

DO  245  NNZ-1  .NZMDM 
ZMFBRN (NNZ )-0. 

ZMEVAP(NNZ )-0. 

ZQWALL (NNZ )-0. 

ZQCOMB(NNZ )=0. 

245  CONTINUE 
NCELL-NC 

CALCULATE  ZONE  PROPERTIES 

250  DO  300  NC-1 ,NCELL 

IF(CELLM(NC) .EQ.O. )G0  TO  300 
FMF- (CMV(NC ) +CMBF (NC ) )/CELLM(NC ) 

DO  260  NNZ-1  , NZMDM 

IF ( (FMF  .GE .ZLLIMT (NNZ)). AND. ( FMF. LT  .ZULIMT (NNZ ) ) )THEN 
NNNZ-NNZ 


END  IF 
260  CONTINUE 

270  IF ( (T-TIMMDM) .LT . 1 . 0E-05. AND .NCALL .GT .0)G0  TO  280 
C 

C  INSTANTANEOUS  ZONE  PROPERTIES 
C 

ZM(NNNZ)-ZM(NNNZ)+CELLM(NC) 

ZML (NNNZ )  -ZML (NNNZ )+CML (NC ) 

ZMV  (NNNZ )»  ZMV  (NNNZ  )+CMV  (NC ) 

ZM  BF ( NNNZ ) -  ZM  BF ( NNNZ ) +CM  BF ( NC ) 

ZNO(NNNZ  )  =  ZNO(NNNZ  )+CNO  (NC  ) 

Z VOL (NNNZ  ) -Z VOL (NNNZ )  +C  VOL  (NC ) 

ZTEMP  (NNNZ  )-ZTEMP  (NNNZ  )+CTEMP(NC) 

ZAMU (NNNZ ) -ZAMU (NNNZ ) +CAMU (NC ) 

C 

C  CUMULATIVE  ZONE  PROPERTIES 
C 

280  ZMFBRN  (NNNZ  )-ZMFBRN  (NNNZ  )+CBMV(NC) 

ZMEVAP (NNNZ )-ZMEVAP (NNNZ ) +CMEVAP (NC ) 

ZQWALL (NNNZ )=ZQWALL (NNNZ )+CQWALL (NC ) 

ZQCOMB (NNNZ )-ZQCOMB (NNNZ ) +CQCOMB (NC ) 

300  CONTINUE 
C 

DO  350  NNZ-1  .NZMDM 
C 

C  SUM  CUMULATIVE  PROPERTIES 
C 

TMFBRN (NNZ)-TMFBRN (NNZ )+ ZMFBRN (NNZ) 

TMEVAP (NNZ )-TWEVAP (NNZ )+ZMEVAP (NNZ ) 

TQWALL (NNZ )-TQWALL (NNZ )+ZQWALL (NNZ ) 

TQCOMB (NNZ ) -TQCOMB (NNZ )+ZQCOMB (NNZ ) 

IF ((T-TIMMDM) .LT.1 .0E-05. AND .NCALL. GT.O)GO  TO  350 
C 

C  CALCULATE  ZONE  MEAN  FMF.TEMP  AND  BETA  EVERT  DTMDM 
C 

IF(ZM(NNZ)  .EQ.O. )THEN 
ZFMF (NNZ )»0 . 

ZBETA (NNZ)»0. 

ZTEMP (NNZ )-0. 

GO  TO  350 
END  IF 

IF(CHARL.EQ. 0. )THEN 
ZBETA (NNZ )»0 . 

GO  TO  3*J0 
END  IF 

ZBETA (NNZ )-ZAMU(NNZ)/(ZM (NNZ )*CHARL**2) 

340  ZFMF (NNZ)- (ZMV (NNZ )+ZMBF (NNZ ))/ZM (NNZ) 
ZTEMP(NNZ)-ZTEMP(NNZ)/ZM(NNZ) 

350  CONTINUE 
C 

IF ( (T-TIMMDM) .LT .1 .0E-05. AND .NCALL. GT.O)GO  TO  800 
C 


TIMMDM-T 

WRITE (4  ,904  )TIMMDM , PAV 
904  FORMAT ( 1 X,E1 3-5 ,1 X,F8 .4 ) 

WRITE (4 ,906)(ZM(K),K-1 .NZMDM) 

WRITE (4 ,906) (ZML(K) ,K-1 , NZMDM) 

WRITE(4 ,906) (ZMV(K) ,K-1 .NZMDM) 

WRITE (4 ,906 )  (ZMBF(K)  ,K-1 , NZMDM) 

WRITE(4, 906) (ZTEMP(K) ,K-1 .NZMDM) 

WRITE (4 ,906 ) (TQCOMB( K) ,K-1 .NZMDM) 

WRITE(4 ,906) (TMEVAP(K) ,K-1 .NZMDM) 

WRITE (4 ,906) (TQWALL(K) ,K-1 .NZMDM) 

WRITE(4 ,906) (TMFBRN(K) ,K-1 .NZMDM) 

WRITE (4 ,906) (ZNO(K) ,K-1 .NZMDM) 

WRITE (4 ,906) (ZVOL(K) ,K«1 .NZMDM) 

WRITE (4 ,906 ) (ZFMF(K ) ,K»1 .NZMDM) 

WRITE (4 ,906) (ZBETA(K) ,K-1 .NZMDM) 

906  FORMAT(1X,6E13.4) 

C 

IF (NCALL .EQ . 0 )G0  TO  800 
C 

C  ZERO  CUMULATIVE  PROPERTIES  AFTER  WRITING  (EVERY  DTMDM) , 

C  BUT  NOT  AT  START  OF  INJECTION. 

C 

DO  700  NNZ-1, NZMDM 
TMFBRN  (NNZ  )**0 . 

TMEVAP(NNZ)**0. 

TQCOMB  (NNZ  )*=0 . 

•TQWALL  (NNZ  )*>0. 

700  CONTINUE 
C 

800  NCALL-NCALL+1 
RETURN 
END 

*MOVEDK  MDMOUT : LNGPRT 

c*#***»*************************************************************** 

♦D.NEWCYC.6 

*D,NEWCYC.53,56 

100  IF(MOD(NCYC, 1 0) .EQ.O)  WRITE(1 2,200)  NCYC .CRANK ,T ,DT , NS , 

1  NVS, GRIND, IDSP(1 ) ,TSPM(1 ) , PM, A VP ,PGS ,IDDT 
IF(T.GE.T1INJ.AND.(LPR.EQ.2.0R.LPR.EQ.4))  CALL  MDMOUT 
*D .NEWCYC . 60 
•D.NEWCYC.69,76 
*D, NEWCYC. 85, 86 
CALL  EXIT 
*D , PFIND.239 ,241 
CALL  EXIT 
*D, PRES. 106,108 
200  WRITE ( 12,900)T,NCYC,NSUB 
CALL  EXIT 
*1 , RINPUT . 4 

DATA  (RERF(K) ,K-1 ,21  )  /  0. , .04434039 ,  .08885599 ,. 1 337269 1 791 435 , 

1  .2253121 , .2724627, .3208583, -3708072, .4226803,  .4769363, .5341591  , 

2  .5951161 , .6608545,-7328691 , .813^198,  .9061939,1 .017902,1  . 163087 , 


3  1  .3859011,2.  / 

C**#**###  DIESEL  FUEL  MOD  a#****##***##*##***##*#**#*#*#*#*#*##*****#** 
C 

C  UPDATE  TO  CONVERT  PHYSICAL  PROPERTIES  OF  FUEL  IN  KIVA 
C  TO  DIESEL  C10.8H18.7 

C 

C  ENTHALPY  DATA  FROM  HEYWOOD/LORUSSO/ROSSINI :  INTERPOLATED 

C  ABOVE  1500K.  FOR  DIESEL  MIX. 

C 

C  REMAINING  DATA  FROM  VERGAFTIK  PP.  284-285:  PROPERTIES  FOR 
C  DODECANE  ARE  USED  FOR  LATENT  HEAT,  VAPOR  PRESSURE, 

C  TCRIT, SURFACE  TENSION,  AND  DENSITY. 

C 

C  FOR  DODECANE:  TCRIT-659K 

C  SURTEN  AT  298K  =  25.04  (CGS) 

C  LIQUID  DENSITY  AT  298K  -  .7452 

C  +++ 

C  +++  INPUT  LABELS  TO  IDENTIFY  THE  SPECIES 
C  +++ 

*D .RINPUT .8  ,23 


DATA 

(IDSP(N).N-I  ,12)  /8H 

DIESEL  ,8H 

02, 8H 

N2, 

1 

8H 

C02.8H 

H  20 , 8H 

H, 

2 

8H 

H2,8H 

0 ,8H 

N, 

3 

8H 

OH ,  8H 

CO  ,8H 

NO/ 

C  +  +  + 

C  +++  ENTHALPIES  OF  THE  PURE  SPECIES  ARE  FROM  THE  JANNAF  TABLES. 

C  +++  INTERVALS  ARE  T-IOO(N-I), 

C  +++  UNITS  ARE  KCAL/MOLE .  1 -DIESEL (Cl 0.8H18  .7 ) ,  2-02,  3=N2,  4-C02, 

C  +++  5-H20,  6-H,  7-H2,  8=0,  9-N,  1 O-OH ,  11 -CO,  12-NO 
C  ++  + 

DATA  (HK(N  ,1 ),N-1 ,51  )  /0. 0,1 .24 ,2.49 ,6 .98 ,1 3. 1 3. 20.73,29 .6 , 

1  39.57,50.46,62.14,74.5,87.41 , 100 .81 , 1 1 4 .63 , 1 28 .82 , 1 43 . 36 , 

2  157.89,172.43,186.97,201 .5,216.04,230.58,245.11 ,259.65, 

3  274.19,288.72,303.26,317.8,332.33,346.87,361  .41 ,375.95, 

4  390.48,405.02,419.56,434.09,448.63,463.17,477.7,492.24, 

5  506.78,521 .31  ,535 .85 ,550 .39 ,564 .92 ,579 . 46 ,594 . ,608 .53 , 

6  623.07,637.61 ,652.14/ 

*D  .RINPUT .90,106 

C 

C  ++  + 

C  ++♦  INPUT  THE  LATENT  HEAT  OF  THE  LIQUID,  ALSO  AT  INTERVALS  T-100(N-1  ) 
C  +++  DODECANE  LATENT  HEAT  VALUES  IN  RANGE  300-600K  (ERGS/G) 

C 

DATA  (HLAT0(N),N-1 ,51 )  /5 . 1 60E9 , 4 . 64E9 , 4 . 1 2E9 , 3 -6E9 , 

1  3. 08E9 , 2 .56E9 ,9 . 4E8, 44*0 . 0/ 

C  +++ 

C  +++  INPUT  THE  LIQUID  VAPOR  PRESSURE  IN  DYNES  AT  INTERVALS  T-IO(N-I). 

C  +++ 

DATA  (PVAP(N).N-I ,LVAP)  /27*0. 0 , 1 . 23 , 3 .73 ,9 .73 , 2 . 37E2, 

1  5.32E2.1 .11E3,2.19E3,4.07E3,7.24E3,1 .23E4.2.02E4, 

2  3.2E4,4.91E4,7.34E4,1 .07E5.1 .52E5,2.13E5,2.91E5, 

3  3.917E5,5.186E5,6.765E5,8.706E5,1.106E6,1 .389E6,1  .7  3E6, 

4  2. 1227E6,2.571E6,3.093E6,3.695E6,4.386E6,5.176E6,6.07E6, 


5  7 . 087E6 ,8 . 228E6 ,9 . 505E6 , 1 . 093E7 , 1 . 25 1 E7 , 1  . 427E7 , 1  .62E7 , 

6  1.813E7/ 

C a###**#**#*#####*#****#*****#*****#**#*#**##*#*#**###***#*****#*****#* 

*1 .RINPUT. 1 18 
NZMAX-NZ 

*D,RINPUT.1 76 ,1 77 
*D .RINPUT .21 7 
*D .RINPUT . 264 
*D .RINPUT  .362 , 376 
*D, RINPUT. 387, 392 

204  WRITE( 1 2 ,440) 

GO  TO  209 

205  WRITE(1 2,430) 

GO  TO  209 

206  WRITE (12,460) 

209  CALL  EXIT 

*D, SETUP. 290 
*D, STATE. 44, 46 

100  WRITE (12,1 10)  T,NCYC,I,J,K,I4,TEMP(I4),SIE(I4),IT  .CRANK 
CALL  EXIT 
*D  .TAPERD  .9,10 
*D,TAPERD.14,31 

NWSCM-LOC ( ZZ  )-LOC ( AA )+ 1 
READ (7 )  (AA(N)  ,N-1 .NWSCM) 

IF(NTD.NE.NDUMP)  GO  TO  40 
NWLCM-LOC (ZZZ1 )-L0C(AAA1 )+1 
READ (7 )  (AAAI(N).N-I ,NWLCM) 

NWLCM-LOC (ZZZ2)~L0C (AAA2 )  +  1 
READ (7  )  (AAA2(N),N-1 ,NWLCM) 

NWLCM-LOC (ZZZ3)*LOC(AAA3)+1 
READ (7 )  (AAA3(N),N-1 ,NWLCM) 

NWLCM-LOC (ZZZ4)-LOC(AAA4)+1 
READ  (7  )  (AAA4(N),N-1  ,NWLCM) 

NWLCM-LOC (ZZZ5)-LOC(AAA5)+1 
IF(NP.GT.O)  READ (7  )  (AAA5 (N ) ,N-1 ,NWLCM) 
NWLCM-LOC(ZZZ6)-LOC(AAA6)+1 
IF(NP.GT.O)  READ (7 )  (AAA6 (N ) ,N-1 ,NWLCM) 

NWLCM-LOC (ZZZ7)~LOC(AAA7)+1 
IF(NP.GT.O)  READ(7 )  ( AAA7 (N ) ,N*1  ,NWLCM) 

NWLCM-LOC (ZZZ8)-LOC(AAA8)+1 
READ (7 )  (AAA8(N),N-1  ,NWLCM) 

WRITE ( 1 2 , 1 00 )  NDUMP.T.NCYC, CRANK 
*D,TAPERD.35,38 
*D .TAPERD .45,47 
40  WRITE (12,110 )NDUMP ,NTD 
CALL  EXIT 
*D,TAPEWR.10,33 

NWSCM-LOC ( ZZ  )~LOC ( AA )+ 1 
WRITE (8 )  (AA(N)  ,N-1  , NWSCM) 

NWLCM-LOC (ZZZ1  )~L0C(AAA1  )+1 
WRITE (8)  (AAAI (N) ,N-1 ,NWLCM) 

NWLCM-LOC (ZZZ2)-L0C(AAA2)+1 
WRITE (8 )  (AAA2(N),N-1 ,NWLCM) 
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NWLCM-LOC(ZZZ3)-LOC(AAA3)+1 
WRITE (8 )  (AAA3(N)  ,N«1  .NWLCM) 

NWLCM-LOC ( ZZZ4 )-LOC ( AAA4)+ 1 
WRITE (8)  (AAA4(N) ,N-1 , NWLCM) 

NWLCM-LOC ( ZZZ5 )~LOC ( AAA5 )+ 1 

IF(NP.GT.O)  WRITE (8)  (AAA5 (N ) ,N-1 .NWLCM) 

NWLCM-LOC ( ZZZ6 )-LOC ( AAA6 )+ 1 

IF (NP.GT.O)  WRITE (8)  (AAA6 (N ) ,N-1 .NWLCM) 

NWLCM-LOC (ZZZ7)"LOC(AAA7)+1 

IF (NP.GT .0)  WRITE (8)  (AAA7 (N )  ,N-1  .NWLCM) 

NWLCM-LOC ( ZZZ8 )-LOC ( AAA8 )+ 1 

WRITE (8)  (AAA8(N) ,N-1 .NWLCM) 

WRITE ( 1 2 , 1 00)  NDUMP.T.NCYC, CRANK 
NDUMP-NDUMP-1 
*D .TIMSTP .69 ,71 
*D .TIMSTP .79  ,81 
CALL  EXIT 


*DECK  CBRT 

FUNCTION  CBRT  (A ) 

THIRD-1 ./ 3. 

CBRT«A**THIRD 

RETURN 

END 

*MOVEDK  VSTRESrCBRT 

C*»**»***»  heat  FLUX  mod******************************************* 
*D .LAWALL .101 

FLUX -2 . 0*C  P* (T BAR-TW  ALL )*  ABS (T AUW / VEL ) 

*D,  LAWALL. 178 

FLUX-2. 0»CP*(TBAR-TWALL)*ABS(TAUW/VEL) 


*D, LAWALL. 258 

FLUX-2. 0*CP*(TBAR-TW ALL)* ABSCTAUW/VEL) 
c*********  FUEL  SPRAY  CONSTANT  DIFFUSIVITY  MOD  *********************** 
*IDENT  TKEFUDRR 
*D  ,  PMOVTV . MO , PMO VTV . 4  5 

IF(IMOM.GT. 99999  .OR.  TURBT (N ) . GT  .T  )GOTO  30 

QT- . 1  * ( U ( IMOM ) *U ( IMOM ) +V ( IMOM ) *V ( IMOM ) +W ( IMOM ) *W ( IMOM ) ) 

TEDDYSZ- 1 69 . 5/ ( SQRT  ( QT  )•*■  1  .  E-1  0 ) 

TSC 1 -TEDDYSZ/ (SQRT(QT )+ 1 . E- 1 0 ) 

VR EL ED -SQRT ((UN(IM0M)-UP(N))**2+(VN(IM0M)-VP(N))**2 
1  + (WN (IMOM)-WP (N ) )**2 ) 

TSC2-TEDDYSZ/ ( VRELED  +  1 .E-1  0 ) 

c********  PARTICLE  DIFFUSION  MOD  ************************************* 
*IDENT  PARDIF 
*D, PMOVTV. M8 

IF (TSC ALE .GE .DT )G0  TO  25 

RELVEL(N)-SQRT((UN(IM0M)-UP(N))**2+(VN(IM0M)-VP(N))**2+ 

1  (WN(IMOM)-WP(N) )**2) 

IM-I4P (N ) 

VRELT -RELVEL  (N ) 

TG-TP(N  )+THIRD*  (TEMP(1 4  )~TP(N  ) ) 

VISCP-AIRMU1 *TG*SQRT (TG)/ (TG+AIRMU2 ) 

REYP-AMAX1 (1 . OE-1 0,2. 0*RO( 1 4 )*RADP(N )* VRELT/ VI  SC  P ) 

CD-C VMGT ( . 424 , 24 ,/REY P* ( 1 . 0  +  SIXTH*REYP**TW0THD )  ,REYP .GT . 1 000 . ) 


m 


mm 


1 


DRAGDT-.375*R0(I4)*VRELT*CD*DT/(RH0*RADP(N)) 

ATD-DRAGDT/DT*TSCALE 

EXPATD-EXP(ATD) 

EXPMATD-1  ./EXPATD 
EXP2ATD=EXPATD**2 
TERM1-C 1 .-EXPMATD )**4 
TERM2-EXP2ATD/ (EXP2ATD-1 . ) 

DTOTD-DT/TSCALE 

EXPATD-EXP(DRAGDT) 

TERM3«DTOTD-(1 .-1 ./EXPADT**2)/( 1 .-EXPMATD**2) 

TERM4- (ATD-1 .+EXPMATD)**2*DTOTD 
FSU BX -SQ RT ( T ERM 1  * T ERM2 * TERM 3 +T ERM 4 ) 

FSUBXO-DRAGDT-1  .+  1  ./EXPADT 
TURVEL»TURVEL*FSUBX/FSUBXO 
*1 ,  PMOVTV .63 

IF(TSCALE.LT.DT)  GO  TO  40 

C*******  ENHANCED  DIFFUSIVITY  MOD*************************** 
*D ,  TIMSTP  .8 

IF (T .LT .T2IGN )G0  TO  4 
IF (RPR .LT .3. )RPR=RPR+ .01 
IF (RSC ,LT .3 . )RSC=RSC  +  .01 
IF (ATKE .LT . .6 )ATKE*ATKE+ . 003 
IF (AO.LT . 1 . 0 )THEN 
A0-A0+.005 
AOME-AO 
AOMOM-AO 
END  IF 

IF(B0.GT.0)B0-B0-.005 
4  DTCON-1 .E+20 

Q**#*###**#*##***#***#*#**##*#***#*#********#*****#**#* 
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APPENDIX  F 

PROCESSING  PROGRAM  (PRCMDM1  ) 


£;******###***#*****###*#*»********#*##****#*****#**, 

PROGRAM  PRCMDM1 
C 

C  PROGRAM  PRCMDM1 
C 

C  WRITTEN  BY:  A. J. BROWN 
C 

C  REDUCES  10  ZONE  RAW  DATA  FROM  KIVA  TO  10  ZONE  SMM  INPUT. 

C 

C 

PARAMETER (NF-9.NZ-10.NZP1 -11 ) 

DIMENSION  ZQCOMB(NZ)  ,ZMEVAP(NZ) ,ZQWALL(NZ)  ,ZVOL(NZ) ,ZFMF(NZ) , 

2  ZBETA(NZ) .ZMFBRN(NZ) ,ZM(NZ)  ,ZNO(NZ)  ,ZML(NZ)  ,ZMV(NZ) , 

3  ZMBF(NZ),ZTEMP(NZ) 

DIMENSION  ZMOLD (NZ ) , ZMLOLD (NZ )  ,ZMVOLD (NZ ) , ZMBFO (NZ ) , 

1  ZVOLO(NZ) 

DIMENSION  FM(NF  )  ,FML  (NF  )  ,FMV (NF  )  ,FMBF  (NF  )  ,B  (NZ  ) 

CHARACTERS  NAME 

READ(1 1 ,901 )NAME ,CA1INJ ,RPM 

WRITE (4, 901 )NAME ,CA1 INJ ,RPM 

READ( 12,*)CA1INJ , SWIRL ,EGR ,T2IGN 

WRITE (4,*)CA1INJ , SWIRL ,EGR 

READ ( 1 2  ,*  )N 

N1-N-1 

WRITE (4 ,*  )N 1 
DO  50  1-1 ,NZ 
B(I )-0. 

50  CONTINUE 

DO  100  1=1 ,N 
READ01  ,905  )T  , P 
READ(11 ,906) (ZM(K) ,K=1 ,NZ) 

READC11 ,906) (ZML(K) ,K=1 ,NZ) 

READ (11 ,906 ) (ZMV(K) ,K-1 ,NZ) 

READ( 1 1 ,906) (ZMBF(K),K=1 ,NZ) 

READ(1 1  ,906)(ZTEMP(K) ,K=1 ,NZ) 

READ( 1 1 ,906) (ZQCOMB(K) ,K=1 ,NZ) 

READ(1 1 ,906) (ZMEVAP(K) ,K=1 ,NZ) 

READ(11  ,906) (ZQWALL(K).K-I  ,NZ) 

READ (1 1 ,906 ) (ZMFBRN (K) ,K=1 ,NZ) 

READC11 ,906) (ZN0(K),K-1 ,NZ) 

READ (1 1 ,906) (ZVOL(K) ,K-1 ,NZ) 

READ( 1 1  ,906) (ZFMF(K) ,K-1 ,NZ) 

READ(1 1 ,906) (ZBETA(K) ,K=1 ,NZ) 

C 

C  READ  ZBETA'S  WITHOUT  ENHANCED  DIFFUSIVITY 
C 

IF (T  .GE .T2IGN )  READ (1 5 ,* ) (ZBETA (K) ,K=1 ,NZ) 


DO  110  L-1 ,1  0 

IF (ZM(L ) .LE .0. )THEN 
ZNO(L )-0 . 

ELSE 

ZNO(L)-ZNO(L)/ZM(L) 

END  IF 

ZBETA (L )-50 . *ZBETA (L ) 

CONTINUE 

DO  120  L-1 ,10 

IF (ZBETA (L ). GT. 1 . E4)ZBETA (L )-1 .E4 
IF (ZBETA (L ) .LE .0. )ZBETA (L )-B (L ) 

B(L)-ZBETA(L) 

CONTINUE 

IF (I  .EQ. 1 )GO  TO  200 

FM( 1 )-ZM0LD(1 )-ZM(1 )+ZMEVAP(1 ) 

FMV  ( 1  )-ZMVOLD(  1  )-ZMV(1  )  +  ZMEVAP(1  )-ZMFBRN(1  ) 

FMBF(1  )-ZMBFO(1  )-ZMBF(1  )+ZMFBRN(1  ) 

DO  150  L-2,9 

FM(L)-ZMOLD(L)-ZM(L)  +  ZMEVAP(L)  +  FM(L-1  ) 
FMV(L)-ZMV0LD(L)-ZMV(L)  +  ZMEVAP(L)-ZMFBRN(L)+FMV(L-1  ) 
FMBF  (L  )-ZMBFO  (L  )~ZMBF  (L  )  +  ZMFBRN  (L  )+FMBF  (L-1  ) 

CONTINUE 

FML(9)-ZML(10)~ZMLOLD(10)  +  ZMEVAP(10) 

DO  160  L-8 ,1,-1 

•  FML(L)-ZML(L+1  )-ZML0LD(L  +  1  )+ZMEVAP(L  +  1  )+FML(L+1  ) 
CONTINUE 

FMLO-ZML  ( 1  )-ZML0LD(1  )  +  ZMEVAP(1  )+FML(1  ) 

WRITE (4  ,9 1 0 )T ,P 

WRITE (4,906) (FM(L) , L-1  ,9) 

WRIT E(4,906)(FMV(L), L-1 ,9) 

WRITE  (4  ,906  )F>1L0  ,  ( ZML  (L )  ,L-1 ,10) 

WRITE (4, 906) (FMBF (L),L-1 ,9) 

WRITE (4, 906) (ZTEMP (L ) ,L-1 ,10) 

WRITE (4 ,906 ) (ZNO(L ) ,L-1  ,10) 

WRITE (4, 906) (ZMEVAP(L) ,L-1 ,10) 

WRITE(4  ,906 ) (ZQWALL (L ) ,L-1 ,10) 

WRITE (4, 906) (ZMFBRN(L) ,L-1  ,10) 

WRITE (4 ,906)(ZV0L(L),L-1 ,10) 

WRITE (4, 906) (ZFMF(L) ,L-1 ,10) 

WRITE (4, 906) (ZBETA (L), L-1 ,10) 

WRITE(4,908)ZM(10) ,ZMV(10) ,ZMBF(10) 

DO  250  J - 1 ,10 
ZMOLD (J )-ZM (J ) 

ZMLOLD(J)-ZML(J) 

ZMVOLD(J)-ZMV(J ) 

ZMBFO(J)-ZMBF(J) 

ZVOLO(J)-ZVOL(J) 

CONTINUE 

IF(I .GT. 1 )G0  TO  100 
WRITE (4 ,902 )P 


1 


100  CONTINUE 
C 

901  FORMAT (A30,/,1X,F6.1 ,2X,F6.1 ) 

902  FORMAT (1X,F8. 4) 

905  FORMAT (1X,E13.5,1X,F8.4) 

906  F  ORMAT ( 1 X , 6E 1 3 . 4 ) 

908  FORMAT (1 X, 3E1 3-4) 

910  FORMAT ( 1 X ,E1 3.5 ,1 X,F8 .4 ) 

C 

CALL  EXIT 
END 

C**  JHf**#**##***#***#***#**##*****####*#**#*********#**#**#**** 
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